应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 急求fortran运行错误原因，在线等
81/1返回列表
查看: 1329  |  回复: 7
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

vivianich

新虫 (初入文坛)

[求助] 急求fortran运行错误原因，在线等

最近改了一个fortran77的程序，编译都通过了，就是运行的时候出现错误如下：
forrtl: severe (24): end-of-file during read, unit 1,。。。
生成的文件fort1.1，打开只有OUTPUT LU=?这一句
我觉得这说明程序一开始运行就出错了，但不知道错在哪里，请高手指点
部分源程序如下：
      PROGRAM FTURB
      INTEGER*4 N1M,N2M,N3M
      DIMENSION LABL(10)
      COMPLEX X(512),Y(512)
      COMMON N1M,N2M,N3M,INPUT,ICART
       
      INPUT=1
      ICART=34
      ROOT2=SQRT(2.)
      WRITE(INPUT,9999)
9999  FORMAT(11HOUTPUT LU=?)
      READ(INPUT,9998) LUOUT
9998  FORMAT(I4)
      WRITE(INPUT,9997)
9997  FORMAT(7HN1MAX=?)
      READ(INPUT,9998) N1MAX
      WRITE(INPUT,9996)
9996  FORMAT(7HN2MAX=?)
      READ(INPUT,9998) N2MAX
      WRITE(INPUT,9995)
9995  FORMAT(7HN3MAX=?)
      READ(INPUT,9998) N3MAX
      WRITE(INPUT,9994)
9994  FORMAT(5HFS1=?)
      READ(INPUT,9993) FS1
9993  FORMAT(F10.0)
      WRITE(INPUT,9992)
9992  FORMAT(5HFS2=?)
      READ(INPUT,9993) FS2
      WRITE(INPUT,9991)
9991  FORMAT(5HFS3=?)
      READ(INPUT,9993) FS3
      WRITE(INPUT,9986)
9986  FORMAT(38H ENTER VELOCITY COMPONENT (1, 2, OR 3))
      READ(1,9985) II
9985  FORMAT(I1)
      N1M=N1MAX
      N2M=N2MAX
      N3M=N3MAX
      MREC=N1MAX*N2MAX*N3MAX/32
      MREC=N1M*N2M*N3M/32
      WRITE(1,8887) MREC
8887  FORMAT(7HMAXREC=,I7,25H  ENTER FILE TO BE OPENED)
      READ(1,8886) (LABL(I),I=1,10)
8886  FORMAT(10A2)
      OPEN(ICART,FILE=LABL,IOSTAT=IOS,STATUS='NEW',
     *          ERR=99,RECL=64,
     *      FORM='UNFORMATTED',ACCESS='DIRECT',MAXREC=MREC)
      DF1=FS1/FLOAT(N1MAX)
      DF2=FS2/FLOAT(N2MAX)
      DF3=FS3/FLOAT(N3MAX)
      N1D2=N1MAX/2
      N2D2=N2MAX/2
      N3D2=N3MAX/2
      DDDF=DF1*DF2*DF3
      X1MAX=FLOAT(N1MAX)
      X2MAX=FLOAT(N2MAX)
      X3MAX=FLOAT(N3MAX)
      FFF=FS1*FS2*FS3
      SIGXK=SQRT(X1MAX*X2MAX*X3MAX/2.)/FFF
      P=PHIU(0.,0.,0.,II)
      SUM=P
      H=SQRT(FFF*P)
      X(1)=SIGXK*ROOT2*H*CMPLX(GRAN(),0. )
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2012-05-16 15:34:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)

【答案】应助回帖

★
vivianich: 金币+1, ★★★很有帮助 2012-05-22 10:27:33
你好，我想问下：INput 是输入文件 还是输出文件？？
好像不能 对一个 文件 同时输入和输出吧。
赞一下 回复此楼
生活中坚持快乐的原则不改变，学习工作中踏实上进！`~`
2楼2012-05-20 09:04:46
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

vivianich

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by q1036210267 at 2012-05-20 09:04:46:
你好，我想问下：INput 是输入文件 还是输出文件？？
好像不能 对一个 文件 同时输入和输出吧。

我觉得input在这里起到的是赋值的作用，代表了unit=1这个存储文件，原版程序里确实是这么写的
赞一下 回复此楼
3楼2012-05-20 09:44:01
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)
引用回帖:
3楼: Originally posted by vivianich at 2012-05-20 09:44:01:
我觉得input在这里起到的是赋值的作用，代表了unit=1这个存储文件，原版程序里确实是这么写的

但是 ，从你的出错提示信息：出错的地方 就是 对 1 这个文件的操作有问题。

如果方便的话，把你的源程序贴出来
（或发我邮箱liyunzhi01@126.com），大家一起讨论下。
赞一下 回复此楼
生活中坚持快乐的原则不改变，学习工作中踏实上进！`~`
4楼2012-05-20 11:06:52
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

vivianich

新虫 (初入文坛)
引用回帖:
4楼: Originally posted by q1036210267 at 2012-05-20 11:06:52:
但是 ，从你的出错提示信息：出错的地方 就是 对 1 这个文件的操作有问题。

如果方便的话，把你的源程序贴出来
（或发我邮箱liyunzhi01@126.com），大家一起讨论下。

你好，源程序发过去了，考虑了您的建议后，我把所有读入命令里的input值改为5，也就是通过键盘输入，这个错误就解决了，但是运行后结果不对，并出现了错误提示ios=36，我想应该又是open语句出问题了
赞一下 回复此楼
5楼2012-05-21 09:38:54
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Carpathia

银虫 (小有名气)

【答案】应助回帖

引用回帖:
5楼: Originally posted by vivianich at 2012-05-21 09:38:54:
你好，源程序发过去了，考虑了您的建议后，我把所有读入命令里的input值改为5，也就是通过键盘输入，这个错误就解决了，但是运行后结果不对，并出现了错误提示ios=36，我想应该又是open语句出问题了

不仅仅对input是read操作，还有write操作，还能向键盘写东西？
一般文件操作都用10以上的数字作为单元
赞一下 回复此楼
追求理想的道路上东张西望
6楼2012-05-21 09:45:21
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

vivianich

新虫 (初入文坛)
引用回帖:
6楼: Originally posted by Carpathia at 2012-05-21 09:45:21:
不仅仅对input是read操作，还有write操作，还能向键盘写东西？
一般文件操作都用10以上的数字作为单元

只改了与read里的input值，write里的值没有改，所以运行后write里的语句仍会保存在unit1里，也没有出现之前的错误
赞一下 回复此楼
7楼2012-05-21 09:51:06
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

vivianich

新虫 (初入文坛)
引用回帖:
4楼: Originally posted by q1036210267 at 2012-05-20 11:06:52:
但是 ，从你的出错提示信息：出错的地方 就是 对 1 这个文件的操作有问题。

如果方便的话，把你的源程序贴出来
（或发我邮箱liyunzhi01@126.com），大家一起讨论下。

还请帮忙看下源程序里的OPEN语句里FILE=LABL对不，因为按原意是要打开十个不同名的新文件吧，但我输入了二十个字符最后只创建了一个新文件，文件名就是我输入的二十个字符
赞一下 回复此楼
8楼2012-05-21 16:36:17
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 vivianich 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 论文翻译-EnPapers美助理教授团队-SCI英文润色
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 博后基金刷到的BUG,图片来的更直观 +9 carolloo 2024-06-17 10/500 2024-06-17 20:44 by sunyuwei1994
[硕博家园] 关于硕博连读的一些疑问？ +4 Lwenter 2024-06-14 5/250 2024-06-17 20:42 by Lwenter
[基金申请] 化学会年会改成一年开一次了？ +7 babu2015 2024-06-12 15/750 2024-06-17 20:28 by 落笔画枫
[论文投稿] 论文已接收，但发现修改稿传的是旧版该怎么办？ +3 zsq54321 2024-06-15 6/300 2024-06-17 19:45 by wjykycg
[论文投稿] 审稿问题：为什么荧光激发波长和紫外吸收波长差的大？ 10+5 sdawege 2024-06-14 10/500 2024-06-17 18:54 by HH-探针
[基金申请] 面青地会评时间 +8 tanjydd 2024-06-15 8/400 2024-06-17 17:08 by 小龙虾2008
[文学芳草园] 累并快乐着 +14 MYHLD521 2024-06-14 14/700 2024-06-17 14:51 by shl2112501
[博后之家] 山东大学(青岛)“天然药物生物智造”课题组 招聘“博士后”(年薪20.4-55.6万元) +5 第二种态度 2024-06-11 11/550 2024-06-17 10:08 by 小懂事k
[找工作] 应届大龄土博教职选择，石河子大学和广西大学 10+4 茅山老道士 2024-06-10 34/1700 2024-06-16 22:05 by yugege2009
[基金申请] Nature 11日发文，中国著名学者们称造假迫不得已 +6 babu2015 2024-06-14 6/300 2024-06-16 18:37 by 喜欢和一氧化二�
[教师之家] 每次骚扰女学生的都是院系领导，而不是普通教师，小编们要注意措辞正确 +9 zju2000 2024-06-15 11/550 2024-06-16 14:49 by appleapple2
[基金申请] 博后基金，博管会会提前知道消息吗？ +4 yuyiang 2024-06-13 4/200 2024-06-16 11:40 by yangyuzhong4
[基金申请] BO4的YQ答辩通知发布了吗？ +6 博学笃行 2024-06-11 6/300 2024-06-15 16:04 by 悲催科研狗
[论文投稿] 投稿时忘记修改一作 +7 gll123456 2024-06-13 11/550 2024-06-15 11:49 by gll123456
[论文投稿] 投了一篇4区的SCI，审稿人一个拒稿，一个小修，编辑给了大修。 +9 安稳22123 2024-06-13 10/500 2024-06-14 23:45 by jurkat.1640
[基金申请] 工材E口JQ有消息了吗 +4 babyduck 2024-06-11 4/200 2024-06-14 17:23 by firepick
[基金申请] 国自然基金公布的时候基金号有吗 +8 潇洒怡惜 2024-06-13 11/550 2024-06-14 11:24 by JRfei
[论文投稿] 最近写了一篇控制优化领域的文章，可以投哪里啊？有没有水一些的期刊推荐 +7 香瓜木香 2024-06-12 13/650 2024-06-14 07:05 by 香瓜木香
[硕博家园] 考博应该从哪里开始准备 +6 亮姐2019 2024-06-11 8/400 2024-06-13 12:53 by 帕秋莉GO
[论文投稿] 摩擦磨损论文投稿 +3 jmysan 2024-06-12 3/150 2024-06-13 08:36 by 莱茵润色
信息提示
关闭
请填处理意见
关闭