新手求助， list-directed I/O syntax error

小二

想把EC DT850数据提出来
写了个简单的程序，运行的时候总是出来这个，怎么回事呢？
程序如下
program dt
implicit none
parameter x=145,y=37
integer j
real,dimension(x,y)::dt850
open(1,file='K:\ecmwf\dt\850\14110320.024')
open(2,file='C:\data\dt850.txt')
read(1,*)
read(1,*)
read(1,*)
read(1,*)dt850

write(2,*)dt850
close(1)
close(2)
end

成信之子

感觉你是新手啊，你这是最基本的读取文件的程序。还需要多练习练习。
把read(1,*) dt850改成
do i=1,x
    read(1,*) (dt850(i,j),j=1,y)
enddo
在前面定义的时候,integer i这一句改成integer i,j

小二

成信之子 发表于 2014-11-4 11:16
感觉你是新手啊，你这是最基本的读取文件的程序。还需要多练习练习。
把read(1,*) dt850改成
do i=1,x

多谢多谢，调试了下可以了。
再请教一下为什么读取的时候不能这样读取，写的时候却可以呢。为什么会出现这样的错误提示呢
纯小白