Fortran文件续写

楚香饭

1.先把原有的内容读出来，然后write 1，再write原有内容。
其他编辑器，比如记事本，UltraEdit 也是这样做的。

2.顺序读取，倒序使用就行了。
Do i = 1 , 9
  read( 文件号 , * ) a( 9 - i + 1 )
End Do

楚香饭

没有别的办法，所有的文本编辑器都是这样做的。

连 UltraEdit 这样的商业软件都是这样，打开一个大的文本文件，非常慢，即便你做了很小的改动，保存一下也非常慢。

如果有好的办法，UltraEdit 早就用了。这已经不是 Fortran 的问题了，除非操作系统的文件管理方式有大的突破。

楚香饭

不过你可以从你的技术实现上做出修改，

比如用二进制文件。预先在文件的前面留出足够的空白。

或者如果非要用文本文件，每一行都一样长，可以考虑用直接读取的有格式文件。