利用循环读文件只有第一行成功，第二行开始报错

麒麟

请教各位，我写循环入读站点经纬度信息，命令和站点资料如下：

   在第一次循环：
       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

end-of-fileFAQ之 常见错误分析  Q2003
http://fcode.cn/guide-36-1.html

看起来是cvf，试试在文件末尾加空行。