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

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

本帖最后由 叶落无声 于 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: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

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
do i = 1 , N
read(12,* , ioStat = k ) a , b , c
if ( k /= 0 ) then


嗯嗯，谢谢啦
页: [1]
查看完整版本: 要读的数据多于文件中存储的数据，请教大家如何