各位大佬，求指正

叁玖壹

我用fortran读取近50年降水资料的代码，检测没有错误 ，运行后提示在第一次循环后结束了。各位大佬是我在那做错了嘛，求指正。

program test
parameter(m=29000)

integer i,n
integer,allocatable::tz(:,:),ni(:,:),yu(:,:),r(:,:)

real,allocatable::jd(:,:),wd(:,:),z(:,:),R8(:,:),R20(:,:),R24(:,:)
character*38 filenames(225)
allocate(tz(225,m),ni(225,m),yu(225,m),r(225,m))
allocate(jd(225,m),wd(225,m),z(225,m),R8(225,m),R20(225,m),R24(225,m))
open(1,file='e:\lunwen\filenames.txt')
do n=1,225
read(1,*) filenames(n)
enddo
close(1)
do n=1,225
open(2,file='f:\djjs\'//filenames(n)//'.txt')
do i=1,m
read(2,*) tz(n,i),jd(n,i),wd(n,i),z(n,i),ni(n,i),yu(n,i),r(n,i),R8(n,i),R20(n,i),R24(n,i)
print*, tz(1,i),jd(1,i),wd(1,i),z(1,i),ni(1,i),yu(1,i),r(1,i),R8(1,i),R20(1,i),R24(1,i)
enddo
enddo
close(2)
end

lqouc

报错图太糊，看不清内容，m似乎没有赋值。

叁玖壹

m赋值之后还是一样