| 查看: 2225 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
急求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. ) |
回复此楼» 猜你喜欢
在坚冰还盖着北海的时候，我看到了怒放的梅花。
已经有3人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有8人回复
-
没有任何消息-是不是就凉了
已经有10人回复
-
人气不行了
已经有11人回复
-
2026国自然函评费到账
已经有22人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有3人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有7人回复
-
今天基金会出结果吗？20260819
已经有18人回复
-
我面上完蛋了
已经有14人回复
-
范进中举一文的中心思想
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教 fortran 运行错误的原因
已经有13人回复
- fortran转换CHGCAR出错
已经有4人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- FORTRAN编译成功，但运行出现断点
已经有8人回复
- 我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？
已经有4人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- Fortran的格式化输入输出问题
已经有14人回复
- 有关fortran的一次而问题，希望大家能帮帮忙，谢谢
已经有4人回复
- 【求助】运行fortran程序出现错误 : error LNK2019 怎么回事啊
已经有8人回复
7楼2012-05-21 09:51:06
q1036210267
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 2182.2
- 散金: 806
- 红花: 4
- 帖子: 893
- 在线: 262.1小时
- 虫号: 1346635
- 注册: 2011-07-15
- 性别: GG
- 专业: 药物化学
2楼2012-05-20 09:04:46
3楼2012-05-20 09:44:01
q1036210267
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 2182.2
- 散金: 806
- 红花: 4
- 帖子: 893
- 在线: 262.1小时
- 虫号: 1346635
- 注册: 2011-07-15
- 性别: GG
- 专业: 药物化学
4楼2012-05-20 11:06:52
20