fortran6.6文件续写

fcode

嗯，如果还是有问题，可以试着上传数据文件和所有源代码（如果不是特别多的话）。

fcode

你没给数据文件，我没有跑这个程序，只能肉眼看。不一定准确。

以下是猜想：

[Fortran] 纯文本查看 复制代码

do i=2,5
                print*,'*',i
                call writeoption(filename(i),'option.txt')
                call filetofile('option.txt','option1.txt')
        enddo

这里先调用 writeoption，然后调用 filetofile

在 writeoption 里，通过 open(30,file=name2) 打开了 option.txt ，而且不是 append 的。
在某些情况下，30 会被 Close，某些情况下，不会被 Close。

而到了 filetofile 函数内，直接就 Open（30），如果此时 30 在之前并没有关闭，这里的 open(30,file=trim(name1),status='old',position='append') 就会失败

你试试在 writeoption 函数里，把 30 换成其他的。
或者在 filetofile 一开始，先 close(30)

fcode

在你的代码79行，有 close(30)
但是前面有跳转到 350 行的情况，此时，就没有执行 close(30)