FORTRAN提示的错误看不懂

oh嘟嘟小千

我按照GRADS教材中91页上编写的将站点数据转换成二进制的程序，提示有错，但菜鸟看不懂，求高手指导。
一下是程序：
program main
real vec(4997)
open(1,file='F:\decimaldata\SK\2014050220.txt',status='old')
read(1,*)(vec(i),i=1,4997)
close(1)
call stntogrd(vec)
end
subroutine stntogrd(x)
real lat(4997),lon(4997),x(4997)
character*8 stid(4997)
open(2,file='F:\decimaldata\SK\ZD.txt')
do 2 k=1,4997
20 read(2,*) lat(k),lon(k)
close(2)
do 2 i=1,4997
2 stid(i)=char(i)
open(3,file='2014050220.grd',form='binary')
tim=0.0
nlev=1
nflag=1
do 40 i=1,4997
write(3) stid(i),lat(i),lon(i),tim,nlev,nflag,x(i)
40 continue
nlev=0
write(3) stid(i-1),lat(i-1),lon(i-1),tim,nlev,nflag
close(3)
return
end

liuxiaoyue

应该是读取文件的问题吧

王磊

这是读取文件时遇到了文件的结束。例如，代码要求数据有3行数据，而实际输入文件只有2行。在某些时候，甚至输入文件根本不存在或是空白文件。此外，数据文件缺失某些行某些列也是较大的可能。当然，也可能是循环读取文件时没控制住。比如想读100行，结果写错了，读了1000行。有时候，可能是文件路径错误，导致实际读取了另一个空白的文件。或者文件扩展名被隐藏了，比如读取 a.txt，但实际的文件名却是 a.txt.txt

oh嘟嘟小千

我疯了，是程序写错了，问题已解决，谢谢大家回复

小鑫

看到这个错误，猜就是路径错误，我读写文件时也常遇到，十之八九是都是我自己程序搞错了要读取文件的位置