Fortran Coder

查看: 10771|回复: 6

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

[复制链接]

4

帖子

1

主题

0

精华

入门

F 币
39 元
贡献
14 点
发表于 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)
参数的设置

790

帖子

2

主题

0

精华

大宗师

F 币
3765 元
贡献
2255 点
发表于 2017-6-8 10:42:31 | 显示全部楼层
这不是错误,不用管,代码能执行就是了。看起来程序已经正确执行完毕。

4

帖子

1

主题

0

精华

入门

F 币
39 元
贡献
14 点
 楼主| 发表于 2017-6-8 10:56:27 | 显示全部楼层
li913 发表于 2017-6-8 10:42
这不是错误,不用管,代码能执行就是了。看起来程序已经正确执行完毕。

我修改了一下问题

1948

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1298 元
贡献
547 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-6-8 13:59:50 | 显示全部楼层
可通过 ioStat 判断读取是否成功。

4

帖子

1

主题

0

精华

入门

F 币
39 元
贡献
14 点
 楼主| 发表于 2017-6-8 17:21:22 | 显示全部楼层
fcode 发表于 2017-6-8 13:59
可通过 ioStat 判断读取是否成功。

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

1948

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1298 元
贡献
547 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 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

4

帖子

1

主题

0

精华

入门

F 币
39 元
贡献
14 点
 楼主| 发表于 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

嗯嗯,谢谢啦
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 18:19

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表