| 查看: 1397 | 回复: 1 | ||
[求助]
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
» 猜你喜欢
291求调剂
已经有5人回复
-
药学专硕调剂
已经有10人回复
-
一志愿211，0703化学305分求调剂
已经有32人回复
-
求调剂
已经有9人回复
-
211本科材料化工求调剂
已经有13人回复
-
286求调剂
已经有23人回复
-
085410 273求调剂
已经有7人回复
-
291分调剂
已经有6人回复
-
310求调剂
已经有8人回复
-
药学305求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
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
感谢参与，应助指数 +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
|
你的问题在于： 上述代码中，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
20