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

叶落无声 · 发表于 2017-6-8 08:17:16

本帖最后由叶落无声于 2017-6-8 10:57 编辑

M7PU~CHSGSG_YRWK%K~`I1N.png

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

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

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

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

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

我修改了一下问题

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

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

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

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

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

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-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

嗯嗯，谢谢啦

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