fortran - 循环读取fortran中的多个文件

Question

我想使用文件名格式化系统循环读取 Fortran 中的多个文件。问题是文件名的数字不直接相互跟随。文件名示例为 4e3_2048_380_40_3e9.ksz_cl.txt、4e3_2048_200_80_2e8.ksz_cl.txt。文件名中的第 3、第 4 和第 5 个数字形成 3x3 网格。第一个数字从 140-260 开始，第二个数字从 40-80 开始，第三个数字从 2e8-2e9 开始。

我已经在线程中搜索了答案，例如在 fortran 中读取多个文件，但它似乎没有回答我的问题。我下面的代码当前打印出 4e3_2048_01.ksz_cl.txt。

program readfiles
implicit none
integer :: i, N
Logical, Save :: first_time = .True.
CHARACTER(len=25) :: FN 
N=3 !--arbitrary number of files 

if(first_time) then
DO I=1,N
WRITE(FN,10)I
WRITE(6,*)FN 
OPEN(1,FILE=FN, status='replace') 
CLOSE(1)
END DO 
10 FORMAT('4e3_2048_',I2.2,'.ksz_cl.txt') 
endif


end program readfiles

标签： fortran