24小时热门版块排行榜

返回列表

zengkehl

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 639
红花: 2
帖子: 89
在线: 46.9小时
虫号: 1989498
注册: 2012-09-10
性别: GG
专业: 海洋工程

[求助] 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

» 猜你喜欢

天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）已经有3人回复
有时候真觉得大城市人没有县城人甚至个体户幸福已经有6人回复
面上项目申报已经有3人回复
酰胺脱乙酰基已经有9人回复
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优已经有5人回复
博士延得我，科研能力直往上蹿已经有7人回复
退学或坚持读已经有27人回复
面上基金申报没有其他的参与者成吗已经有5人回复
遇见不省心的家人很难过已经有22人回复

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

fortran读写问题已经有6人回复
fortran文件操作，接着写不覆盖已经有3人回复
FORTRAN中如何实现重复读取一行？已经有24人回复
fortran，带字符的数据读取与存储！已经有11人回复
急求fortran运行错误原因，在线等已经有7人回复
fortran中如何处理字符和数据混合的文件已经有6人回复
Fortran数据读入格式的修改已经有5人回复
fortran程序open文件时的简单问题已经有3人回复
请教 fortran 运行错误的原因已经有13人回复
Fortran 编译问题已经有9人回复
Fortran如何读取数据避开空行？已经有7人回复
fortran两个问题，文件中的空格，屏幕同一行覆盖输出已经有23人回复
【求助】请问如何解决insufficient virtual memory 已经有10人回复
【求助】读文本数据出现段错误[fortran] 已经有14人回复
【求助】FORTRAN写文件时每行开头都多了一个空格？已经有6人回复
【求助】FORTRAN读取文本文件已经有9人回复
请教fortran导txt数据进origin问题已经有1人回复
【求助】fortran中怎么存储不确定长度的数据【已完结】已经有6人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复
【求助】matlab读取fortran输出的txt文件【已解决】已经有3人回复

1楼 2013-05-08 16:41:54

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

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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)

赞一下(1人)

回复此楼

2楼2013-05-08 18:55:41

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

相关版块跳转我要订阅楼主 zengkehl 的主题更新

返回列表