Fortran Coder

标题: 要读的数据多于文件中存储的数据，请教大家如何 [打印本页]

作者: 叶落无声 时间: 2017-6-8 08:17
标题: 要读的数据多于文件中存储的数据，请教大家如何
本帖最后由叶落无声于 2017-6-8 10:57 编辑

就是这一行出问题了，怎么办？
PARAMETER (MELEM = 800, MNODE = 441, NNPEL = 3)
PARAMETER (MELEMB = 80, MELEMT = 880)
PARAMETER (NCTA = 20, NFAI = 40)
参数的设置

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

作者: 叶落无声 时间: 2017-6-8 10:56

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

我修改了一下问题

作者: fcode 时间: 2017-6-8 13:59
可通过 ioStat 判断读取是否成功。

作者: 叶落无声 时间: 2017-6-8 17:21

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

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

作者: fcode 时间: 2017-6-9 08:15

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

do i = 1 , N

  read(12,* , ioStat = k ) a , b , c

  if ( k /= 0 ) then

    write(*,*) '文件读取错误，可能是文件读完了。'

    exit

  endif

end do

作者: 叶落无声 时间: 2017-6-9 15:37

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

嗯嗯，谢谢啦

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