Fortran Coder

标题: 利用循环读文件只有第一行成功，第二行开始报错 [打印本页]

作者: 麒麟 时间: 2017-2-23 15:16
标题: 利用循环读文件只有第一行成功，第二行开始报错
本帖最后由麒麟于 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:07
本帖最后由 li913 于 2017-2-23 17:09 编辑

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

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)