24小时热门版块排行榜

返回列表

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

vivianich

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 57.5
帖子: 7
在线: 4.6小时
虫号: 1565264
注册: 2012-01-05
专业: 边界层大气物理学和大气湍

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

回复此楼

» 猜你喜欢

2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
孩子确诊有中度注意力缺陷已经有6人回复
2026博士申请-功能高分子，水凝胶方向已经有6人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复
请问2026国家基金面上项目会启动申2停1吗已经有5人回复
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？已经有3人回复

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

请教 fortran 运行错误的原因已经有13人回复
fortran转换CHGCAR出错已经有4人回复
FORTRAN新手求助主程序循环问题已经有10人回复
FORTRAN编译成功，但运行出现断点已经有8人回复
我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？已经有4人回复
请教一个fortran小程序编译出错的问题，谢谢已经有9人回复
【求助】Fortran语言赋值问题？已经有3人回复
Fortran的格式化输入输出问题已经有14人回复
有关fortran的一次而问题，希望大家能帮帮忙，谢谢已经有4人回复
【求助】运行fortran程序出现错误 : error LNK2019 怎么回事啊已经有8人回复

1楼2012-05-16 15:34:07

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

vivianich

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 57.5
帖子: 7
在线: 4.6小时
虫号: 1565264
注册: 2012-01-05
专业: 边界层大气物理学和大气湍

引用回帖:

4楼: Originally posted by q1036210267 at 2012-05-20 11:06:52:
但是，从你的出错提示信息：出错的地方就是对 1 这个文件的操作有问题。

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

你好，源程序发过去了，考虑了您的建议后，我把所有读入命令里的input值改为5，也就是通过键盘输入，这个错误就解决了，但是运行后结果不对，并出现了错误提示ios=36，我想应该又是open语句出问题了