怎么用fortran批量处理多个txt，求解

蓝色蜗牛角

program lm
implicit none
character*8 stid(820)
real::lat(820),lon(820),var,tp(1:12,1:820),tx,tn,a,b,c
integer::yr,mo,dy,sta,tim,i,j,k
sta=820
open(1,file='C:\lunwen\shuju\SURF_CLI_CHN_MUL_DAY-TEM-12001-195103.txt',status='old')
open(2,file='C:\lunwen\sta2.grd',status='replace',form='binary')
read(1,*)
read(1,*)
10 read(1,*,end=100)stid,lon,lat,var,yr,mo,dy,tp,tx,tn,a,b,c
do i=1,mo
tim=199503
do j=1,sta
write(2) stid(j),lat(j),lon(j),tim,tp(i,j)
end do
end do
goto 10
100 continue
close(1)
close(2)
end

topmad

文件名循环  然后 操作文件

topmad

文件名循环  然后 操作文件

蓝色蜗牛角

topmad 发表于 2017-12-15 14:14
文件名循环  然后 操作文件

具体点吗，我需要具体步骤我发现我的fortran使用多种方式都运行不了