利用循环读文件只有第一行成功，第二行开始报错
本帖最后由 麒麟 于 2017-2-23 20:51 编辑请教各位，我写循环入读站点经纬度信息，命令和站点资料如下：
在第一次循环：
do g=1,sta
read(3,*)line !读入从站点号开始后的所有数据
write(nowstid,'(i5)') int(line(1))
开始读入第一行没问题，程序可以执行，
跳出循环：
do k=1,nt 后，
再次返回到
do g=1,sta时
程序提示错误如下所示：
其中：line是实型，是不是和这个有关系？本人曾用数组表示line（sta,24）,但是又和读入站点号 write(nowstid,'(i5)') int(line(1))冲突。
请大家支招”如何处理报错、采用数组应该如何修改程序“这两个问题？
谢谢大家了！！
本帖最后由 li913 于 2017-2-23 17:09 编辑
end-of-fileFAQ之 常见错误分析Q2003
http://fcode.cn/guide-36-1.html
看起来是cvf，试试在文件末尾加空行。
页:
[1]