24小时热门版块排行榜    

查看: 1416  |  回复: 2

fmying

银虫 (小有名气)

[求助] 请问Fortran读取文件数据不同写法的差别

我的FORTRAN程序有如下代码(读取双电子积分用):
OPEN(UNIT=IR,FILE="A",STATUS="OLD"
REWIND(IR)
READ(IR,*)(GG(I),I=1,NB4)
CLOSE(IR)

其中NB4是双电子积分数,GG是存储数组,文件A的格式如下:
1.0000
2.0000
...
每行一个数据。

在计算小体系的时候没问题。但是在涉及200个基函数体系的时候,总的双电子积分数目为202015050,也就是说文件中有202015050行,这时候这段代码就会出现错误,提示End of File。但是我明明在读之前REWIND了啊。查了一下发现NB4和文件的行数是一样的,更不应该出错了。之后我将代码的读取部分变成:
DO I = 1,NB4
READ(IR,*)GG(I)
END DO
就通过了。
请问这两种写法有什么不一样?为什么 READ(IR,*)(GG(I),I=1,NB4)和READ(IR,*)GG(1:NB4)都会出错,而将循环直接写出就可以通过?另外,两种写法的效率有什么区别么?
回复此楼

» 猜你喜欢

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

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

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

感谢参与,应助指数 +1
READ(IR,*)(GG(I),I=1,NB4)
是横向读数据
DO I = 1,NB4
READ(IR,*)GG(I)
END DO
是纵向读数据
2楼2013-04-18 09:41:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
这几种写法没有什么区别,理论上应该得到同样的结果。
若是运行结果不同,则可能和编译器有关。
一般说隐式循环效率高些。
3楼2013-04-18 11:39:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 fmying 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 298-一志愿中国农业大学-求调剂 +11 手机用户 2026-03-17 12/600 2026-03-23 23:51 by 热情沙漠
[考研] 一志愿华东理工大学081700,初试分数271 +4 kotoko_ik 2026-03-23 5/250 2026-03-23 23:23 by 呆呆师姐
[考研] 335分 | 材料与化工专硕 | GPA 4.07 | 有科研经历 +4 cccchenso 2026-03-23 4/200 2026-03-23 23:00 by 徐ckkk
[考研] 265求调剂 +10 梁梁校校 2026-03-17 10/500 2026-03-23 21:17 by 一切OK
[考研] 一志愿南航材料专317分求调剂 +3 炸呀炸呀炸薯条 2026-03-23 3/150 2026-03-23 20:47 by pswait
[考研] 一志愿武理材料工程348求调剂 +6  ̄^ ̄゜汗 2026-03-19 9/450 2026-03-23 19:53 by pswait
[考研] 求调剂一志愿武汉理工大学材料工程(085601) +3 WW.' 2026-03-23 5/250 2026-03-23 17:18 by 枫翼ljj
[考研] 328求调剂 +4 LHHL66 2026-03-23 4/200 2026-03-23 14:55 by lbsjt
[考研] 一志愿东华大学化学070300,求调剂 +7 2117205181 2026-03-21 8/400 2026-03-22 22:55 by chixmc
[考研] 0854电子信息求调剂 +3 α____ 2026-03-22 3/150 2026-03-22 21:28 by zhq0425
[考研] 306求调剂 +5 来好运来来来 2026-03-22 5/250 2026-03-22 16:17 by BruceLiu320
[考研] 考研调剂 +4 来好运来来来 2026-03-21 4/200 2026-03-22 12:15 by 星空星月
[考研] 材料求调剂 +5 @taotao 2026-03-21 5/250 2026-03-21 20:55 by lbsjt
[考研] 材料学硕333求调剂 +3 北道巷 2026-03-18 3/150 2026-03-21 18:17 by 学员8dgXkO
[考研] 0805材料320求调剂 +3 深海物语 2026-03-20 3/150 2026-03-21 15:46 by 无际的草原
[考研] 材料工程(专)一志愿985 初试335求调剂 +3 hiloiy 2026-03-17 4/200 2026-03-21 03:04 by JourneyLucky
[考研] 329求调剂 +9 想上学吖吖 2026-03-19 9/450 2026-03-20 22:01 by luoyongfeng
[考研] 材料学求调剂 +4 Stella_Yao 2026-03-20 4/200 2026-03-20 20:28 by ms629
[考研] 求调剂 +3 @taotao 2026-03-20 3/150 2026-03-20 19:35 by JourneyLucky
[考研] 一志愿中国海洋大学,生物学,301分,求调剂 +5 1孙悟空 2026-03-17 6/300 2026-03-19 23:46 by zcl123
信息提示
请填处理意见