99
99
filein = dummy_file(1:ilen)
100
100
fileout = dummy_file(1:ilen)//".sp."
101
101
ilen = inp_strlen(fileout)
103
103
fileout(i+ilen:i+ilen) = schar(i)
105
105
write(luout,*)'copy '//filein(1:inp_strlen(filein))//
106
106
+ ' --> '//fileout(1:inp_strlen(fileout))
107
107
call util_file_copy(filein,fileout)