24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xk6891

至尊木虫 (著名写手)

应助: 0 (幼儿园)
金币: 13735.8
散金: 379
红花: 9
帖子: 1514
在线: 546小时
虫号: 890342
注册: 2009-11-01
专业: 理论和计算化学

[求助] 设定读到行尾终止出现问题

CODE:

open(16,file='bond_analyse.txt',status='old')

i=1

do while(.true.)

read(16,"(A50)",iostat=iso1)in_filename

read(16,"(A50)",iostat=iso1)out_filename

call bond_judge(in_filename,out_filename)

!print *, i

!print *, in_filename

!print *, out_filename

if(iso1<0)exit

i=i+2

end do

close(16)

CODE:

x97_out

x98

x98_out

x99

x99_out

x100

x100_out

第一段为所写的一点代码，第二段为要处理的部分数据（x100_out后还有一个空行，文件结束），由于出现问题，我采用print打出来i和文件名看一看，结果发现本该通过判断if(iso1<0)exit在文件末尾结束的读取没有结束，print结果是（无限循环）

CODE:

问题出在哪里呢？大侠们帮帮忙

[ Last edited by xk6891 on 2011-6-19 at 11:00 ]

回复此楼

» 猜你喜欢

上海工程技术大学张培磊教授团队招收博士生已经有3人回复
上海工程技术大学【激光智能制造】课题组招收硕士已经有5人回复
求助院士们，这个如何合成呀已经有4人回复
临港实验室与上科大联培博士招生1名已经有9人回复
想换工作。大多数高校都是评职称时认可5年内在原单位取得的成果吗？已经有7人回复
需要合成515-64-0，50g，能接单的留言已经有4人回复
自荐读博已经有4人回复
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？已经有6人回复
带资进组求博导收留已经有10人回复
最近几年招的学生写论文不引自己组发的文章已经有11人回复

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

人生自古多险阻，勤者自得天酬助。试问否泰何所依，枯藤老枝待新抽。临渊踌躇终迈步，振翅鹏起云霄冲。似是前程甚堪忧，他日振臂揽苍穹。

1楼 2011-06-19 10:56:46

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

xk6891

至尊木虫 (著名写手)

应助: 0 (幼儿园)
金币: 13735.8
散金: 379
红花: 9
帖子: 1514
在线: 546小时
虫号: 890342
注册: 2009-11-01
专业: 理论和计算化学

引用回帖:

Originally posted by snoopyzhao at 2011-06-19 13:42:22:
放在子程序之前是确保你调用时用到的参数是正确的。当 ios /= 0 时，即读到文件结束处了，但 read 语句还是执行了，这时，两个参数可能取任意结果，当这个结果被传递到子程序中之后，便可能产生出人意料的结果 ...

明白了，设定循环的时候，下次我一定要小心
谢谢您耐心的解释