Question

fortran 如何使得：每次循环中的write(11,*)写入文件的数据都会覆盖上一次的循环的数据？

如题，do while 的，即就想留最后一次循环的数据

Answer 1

先写入一个字符串，循环完毕后，再写入文件吧。
这样执行效率比你那样高很多。
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 )