如何在Fortran中打开迭代并将其保存在新文件中？

问题描述

如何为每个时间步打开一个新文件并保存该时间步的汇总？假设我拥有一维数组，并想将每个时间步的输出保存到带有该时间步标签的新文件中。文件范围可能多达几百个。

我正在尝试运行代码，但是它不起作用。不知道该怎么做？

program iteration
implicit none

real,dimension(1:3) :: summ
integer              :: timestep,x
integer,parameter   :: nstep = 2

do timestep = 1,nstep

open(unit=1,file='file.txt')

    do x = 1,3        ! 1D
        summ = x + 0
       write (unit=1,fmt=100)summ    
    end do
    write (unit=1,fmt=100)summ
    close(1)    
    end do

    100 format (' ',f7.3)
end program iteration

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）