要读的数据多于文件中存储的数据，请教大家如何

查看数: 10833 | 评论数: 6 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

发布时间: 2017-6-8 08:17

本帖最后由叶落无声于 2017-6-8 10:57 编辑就是这一行出问题了，怎么办？ PARAMETER (MELEM = 800, MNODE = 441, NNPEL = 3) PARAMETE ...

叶落无声 发表于 2017-6-9 15:37:20

fcode 发表于 2017-6-9 08:15
[mw_shl_code=fortran,true]do i = 1 , N
read(12,* , ioStat = k ) a , b , c
if ( k /= 0 ) then

嗯嗯，谢谢啦

fcode 发表于 2017-6-9 08:15:39

[Fortran] 纯文本查看 复制代码

do i = 1 , N
  read(12,* , ioStat = k ) a , b , c
  if ( k /= 0 ) then
    write(*,*) '文件读取错误，可能是文件读完了。'
    exit
  endif
end do

叶落无声 发表于 2017-6-8 17:21:22

fcode 发表于 2017-6-8 13:59
可通过 ioStat 判断读取是否成功。

不好意思，我是新手，不知道怎么进行判断啊，我也百度了好久，不知道怎么弄，还请您告知详细一点，拜托了

fcode 发表于 2017-6-8 13:59:50

可通过 ioStat 判断读取是否成功。

叶落无声 发表于 2017-6-8 10:56:27

li913 发表于 2017-6-8 10:42
这不是错误，不用管，代码能执行就是了。看起来程序已经正确执行完毕。

我修改了一下问题

li913 发表于 2017-6-8 10:42:31

这不是错误，不用管，代码能执行就是了。看起来程序已经正确执行完毕。

回复