24小时热门版块排行榜    

查看: 1563  |  回复: 1

zengkehl

铜虫 (小有名气)

[求助] fortran读入数据文件发生错误

说明:在fortran中读入数据出错,希望应助者能够运行下我的程序和数据文件,如果成功得到结果再应答,谢谢!
本程序段是为了从point_intact.dat文件中读入数据放入数组NM,然后在屏幕上显示读入的数据有没有错,调试的时候发生了错误,我查了下,应该是txt文件中数据格式的问题,希望得到大家的帮助。
程序如下(截取了解决问题所需部分的程序)
ROGRAM flow_sphere
!*********************************************************
!目的:圆球绕流流场计算,取四分之一区域
!*********************************************************
IMPLICIT NONE

!***********相关变量定义*************
INTEGER :: I,J
INTEGER, PARAMETER :: NE=2240      !单元数
INTEGER, DIMENSION(NE,3):: NM        !各单元节点的总体序号

!********************************************************
!           数据准备:读取数据,存储数据
!********************************************************
OPEN(21,file='point_intact.dat',status='old')
     DO I=1,NE
       DO J=1,3
         READ(21,*) NM(I,J)         
       END DO
     END DO


DO J=1,3
    DO I=1,NE
        WRITE(*,*) NM(I,J)
    END DO
END DO
close (21)

END PROGRAM

补充:运行之后提示我end of file ,但是我查了下循环的行数和给的数据是对应的,都是2240行,不知道怎么会有这个提示。
QQ截图20130508163931.png

补充,如果我把
DO I=1,NE
       DO J=1,3
         READ(21,*) NM(I,J)         
       END DO
     END DO
写成do i=1,ne
       read(21,*)nm(i,1),nm(i,2),nm(i,3)  
这样写了以后减少一层循环,读取就没问题了,请问下,这又是什么原因啊,还是fortran在这方面有硬伤?

[ Last edited by zengkehl on 2013-5-8 at 18:20 ]
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : point_intact.dat
  • 2013-05-08 16:34:09, 46.46 K

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
xzhdty: 金币+1, 谢谢参与 2013-05-08 19:10:42
zengkehl: 金币+10, ★★★很有帮助, 很好 2013-05-08 19:58:15
ben_ladeng: 专家考核 2013-05-09 10:42:24
你的问题在于:
CODE:
DO I=1,NE
       DO J=1,3
         READ(21,*) NM(I,J)         
       END DO
END DO

上述代码中,READ(21,*) NM(I,J) 在内循环中获取三个数据,即 J=1,3 时,要从三行中读取,而不是你认为的它会读完一个数,然后在下一次循环时再读下一个数。

上面的代码完全可以用一行来写成:

READ(21, *) ((NM(I,J), J=1,3), I=1,NE)
2楼2013-05-08 18:55:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zengkehl 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 9/450 2026-11-05 23:17 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-05 23:17 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 6/300 2026-11-05 23:08 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 kvewwGtKktqB 2026-11-04 9/450 2026-11-05 22:55 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +6 ncTVBM6AOJHF 2026-11-04 15/750 2026-11-05 22:44 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 11/550 2026-11-05 22:35 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-05 22:33 by qL1cU46YIdK0
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +7 ncTVBM6AOJHF 2026-11-04 20/1000 2026-11-05 22:33 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 PYZmcHr5kSaq 2026-11-05 5/250 2026-11-05 21:27 by qL1cU46YIdK0
[考博] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-05 3/150 2026-11-05 21:05 by qL1cU46YIdK0
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:54 by qL1cU46YIdK0
[基金申请] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:45 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:43 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 8/400 2026-11-05 20:21 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +6 ncTVBM6AOJHF 2026-11-04 9/450 2026-11-05 20:10 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 ttH3f1oA6ace 2026-11-04 6/300 2026-11-05 18:00 by My20PsvIExYO
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ncTVBM6AOJHF 2026-11-04 13/650 2026-11-05 17:15 by My20PsvIExYO
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-05 15:46 by My20PsvIExYO
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 ncTVBM6AOJHF 2026-11-04 9/450 2026-11-05 15:13 by My20PsvIExYO
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-05 10:39 by PYZmcHr5kSaq
信息提示
请填处理意见