fortran批量读取文件

叁玖壹

1.先将文件名赋值成字符型数组再读
例如：
program test
parameter(m=29000)
integer i,j,n,y
integer,allocatable::tz(:,:,:)
real,allocatable::jd(:,:,:),wd(:,:,:)
character*4 nian(7)
character*2 yue(4)
  data nian/'1960','1961','1962','1963','1964','1965','1966'/
  data yue/'01','02','03','12'/
allocate(tz(57,4,m))
allocate(jd(57,4,m),wd(57,4,m))
do n=1,57
do y=1,4
open(10,file='e:\djjs\SURF_CLI_CHN_MUL_DAY-PRE-13011-'//nian(n)//''//yue(y)//'.txt')
do i=1,m
read(10,*) tz(n,y,i),jd(n,y,i),wd(n,y,i)
enddo
enddo
enddo
CLOSE(10)
end
2.将文件名输出成一个文件filename：
program test
parameter(m=29000)
integer i,，n
integer,allocatable::tz(:,:),
real,allocatable::jd(:,:),wd(:,:)
character*38 filenames(225)
allocate(tz(225,m))
allocate(jd(225,m),wd(225,m))
!读文件名
open(11,file='e:\lunwen\filenames.txt')
do n=1,225
read(11,*) filenames(n)
enddo
close(11)
end

beesfly

谢谢楼主分享，很有帮助