dat转txt出错，请各位大神帮忙

胖胖

我现在的dat 是地表气压的格点资料，横坐标（x）95个点，纵坐标(y)55个点，时间长(t)为3287天，
想把这个dat转为txt。程序运行到这步是出错了
open(11,file='K:\surface-pressure\'//stid(n)//'.dat',access='direct',form='binary',recl=x*y*t*4)
read(11,rec=1) (((r(i,j,m),i=1,x),j=1,y),m=1,t)
运行结果是severe(36) attempt to accsee non-existent record, unit 11,file  'K:\surface-pressure\0.dat

生成了一个0kb的dat ,这是哪里错哦？请各位大神帮忙！

xiaohundanpipi

记录号没写好。
integer::irec
irec=0
open(11,file='K:\surface-pressure\'//stid(n)//'.dat',access='direct',form='binary',recl=x*y*4)
do m=1,t
irec=irec+1
read(11,rec=irec) ((r(i,j,m),i=1,x),j=1,y)
end do
close(11)

还有你这个recl=x*y*4  是用linux编译器运行的么？

胖胖

在win7的系统上，用fortran运行的

胖胖

xiaohundanpipi 发表于 2013-9-5 15:41

                               
登录/注册后可看大图

记录号没写好。
integer::irec
irec=0

在win7的系统上，用fortran运行的

xo2001

你要读取0.dat文件，但是这个文件不存在，所以就会生成一个0kb的空文件

胖胖

xo2001 发表于 2013-9-5 15:54

                               
登录/注册后可看大图

你要读取0.dat文件，但是这个文件不存在，所以就会生成一个0kb的空文件

我读了01.dat，运行的时候生成的0.dat的空文件，还是储存那出错吧！

xo2001

运行到储存那句了吗？现在看read出错了，你print*，stid(n)看看，是不是读错了

胖胖

xo2001 发表于 2013-9-5 15:59

                               
登录/注册后可看大图

运行到储存那句了吗？现在看read出错了，你print*，stid(n)看看，是不是读错了

print加到open后可以打印出来，加到read后就不行了。

xo2001

我的意思是吧文件名print出来，看看是01.dat还是0.dat

xo2001

如果是文件名都读错了，读了一个空文件，当然就会出错了