不知道怎么改错了，求帮助

春天花开

program stagrd
implicit none
!这里是程序的变量声明
character*8 stid
integer year,month,day
real pressure,DayAverTemp,humidity,wind
!变量声明结束
!程序开始
open(1,file='d:\zhandianziliao\57385.TXT',status='old')
10 read(1,file='d:\zhandianziliao\57385.TXT',end=100)stid,year,month,day,pressure,DayAverTemp,humidity,wind
print*,stid,year,month,day,pressure,DayAverTemp,humidity,wind
pause
goto 10
100 continue
close(1)
!程序结束
end
运行后
D:\zhandiantiqu\tiqu\tiqu.f90(11) : Error: This keyword is invalid for this I/O operation.   [FILE]
10 read(1,file='d:\zhandianziliao\57385.TXT',end=100)stid,year,month,day,pressure,DayAverTemp,humidity,wind
----------^

Lilyliu_love

不要使用goto这个命令，这个命令常常出错

春天花开

谢谢！知道了

lqouc

这一句10 read(1,file='d:\zhandianziliao\57385.TXT',end=100)去掉其中的,file='d:\zhandianziliao\57385.TXT'
另外，虽然有人提出过goto有害论，但是目前为止我使用这个命令时从来没有出现过错误。你这段代码里的goto应该也是没问题的。

river

看你的资料是txt的，是十进制的吗？是十进制的话就是读取的格式控制有问题啊，10 read(1,file='d:\zhandianziliao\57385.TXT',end=100)stid,year,month,day,pressure,DayAverTemp,humidity,wind
应该是10 read(1,*)stid,year,month,day,pressure,DayAverTemp,humidity,wind

river

看你的资料是txt的，是十进制的吗？是十进制的话就是读取的格式控制有问题啊，10 read(1,file='d:\zhandianziliao\57385.TXT',end=100)stid,year,month,day,pressure,DayAverTemp,humidity,wind
应该是10 read(1,*)stid,year,month,day,pressure,DayAverTemp,humidity,wind

春天花开

lqouc 发表于 2015-4-6 18:25
这一句10 read(1,file='d:\zhandianziliao\57385.TXT',end=100)去掉其中的,file='d:\zhandianziliao\57385. ...

我又改了其它方法，你的建议我会试的

春天花开

river 发表于 2015-4-6 19:58
看你的资料是txt的，是十进制的吗？是十进制的话就是读取的格式控制有问题啊，10 read(1,file='d:\zhandian ...

确实是，我把*换成整型了