24小时热门版块排行榜    

查看: 1565  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 厉娜 +3 张丹枫1991 2026-11-09 5/250 2026-11-09 16:53 by 张丹枫1991
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-09 13:26 by Equinoxhua
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 15/750 2026-11-09 13:19 by Equinoxhua
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +5 5sJFDKp2kwuI 2026-11-06 16/800 2026-11-09 11:47 by GwrQVVR6Oenx
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 5sJFDKp2kwuI 2026-11-06 15/750 2026-11-09 11:41 by GwrQVVR6Oenx
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 10/500 2026-11-09 08:00 by IhnEQauGmT3K
[考研] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 06:32 by l48hFd8Nwae2
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
信息提示
请填处理意见