非必要,不要用 formatted direct 这种读取方式。
如果非要用,一定要确保每行长度一致,recl 的设置非常关键。有些编译器还要考虑 CR LF 换行符号。
并且, write(s,*,rec=i) name 这里 rec = i 似乎有点问题。
以下代码可供参考
[Fortran] 纯文本查看 复制代码 program main
implicit none
integer::num
character(10)::name
real::a ,b ,c ,d
open(10,file='111.txt')
do
read(10,*,iostat=num)a ,b ,c ,d ,name
if (num /= 0) exit
call system("mkdir "//name)
open(30,file=trim(name)//'/'//trim(name)//'.txt')
write(30,*)name
close(30)
enddo
close(10)
end program main |