循环读取fortran中的多个文件

Question

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

我已经在reading multiple files in 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