先写入一个字符串，循环完毕后，再写入文件吧。
这样执行效率比你那样高很多。
character( Len = 512 ) :: cStr
Open( 11 , File = 文件名 )
do while
...
write( cStr , * ) ....
...
end do
write( 11 , * ) Trim( cStr )
如果你坚持自己的做法。那么
do while
open( 11 , File = 文件名 )
write( 11 , * )
Close( 11 )
end do
或者
open( 11 , File = 文件名 )
do while
write( 11 , * )
rewind( 11 )
end do
Close( 11 )
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024