各位高手帮我看一下，我的程序那里的问题

yhr1978nn

我试了好多次都是错的，各位高手帮我查一下问题所在谢谢！！
program read
implicit none
integer,parameter::n=160
integer,parameter::m=54
integer::iyb=1951
integer it(n,m)
open(11,file='R1601.txt')
read(11,*)((it(i,j),i=1,n),j=1,m)
close(11)
stop
end program read

mofangbao

怎么个错法？

topmad

1. program read
   
2. implicit none
   
3. integer,parameter::n=160
   
4. integer,parameter::m=54
   
5. integer,parameter::iyb=1951
   
6. integer i,j
   
7. integer it(n,m)
   
8. open(11,file='R1601.txt')
   
9. read(11,*)((it(i,j),i=1,n),j=1,m)
   
10. close(11)
    
11. stop
    
12. end program read

复制代码

你用了implicit none  应该定义 i j
还有 你的iyb不能这样 应该像上面的一样  integer，parameter：：lyb=1951

言深深

楼上的说法可能是部分正确的，由于楼主的iyb并未使用到，因此可以不定义成parameter；当然，i，j是必须要定义的@topmad
可能出错的原因或许在于数据的存储和读取的方式不一样。楼主的数据看起来是160站点的降水资料，应该打开你的资料看看是按行列如何排列的。最好用以下的格式读取
do i=1,行数
read(11,*)(x(i,j),j=1,列数)
enddo

ps:如果问题没有得到解决，请给出程序运行出错的截图，最好附上你的数据资料（为保证不涉及数据保密，可以用excel进行处理打乱加密）

西门杨

路过，飘过