在 Fortran 中写入现有文件而不覆盖

我有一个由 Fortran 程序编写的现有文件（已格式化），我想在文件开头添加几行。我们的想法是在不复制原始文件的情况下完成此操作。

我可以在文件末尾添加一行：

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="append")
write(21,*) "a new line"

但是当我尝试时：

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="rewind")
write(21,*) "a new line"

它会覆盖整个文件。

这可能是不可能的。 至少，我很高兴能确认这实际上是不可能的。

是的，这是不可能的。和position=您只需设置书写位置即可。通常，您只需通过写入顺序文件来删除当前记录之后的所有内容。您可以在直接访问文件的开头调整记录，但不仅仅是在开头添加某些内容。您必须先复印一份。