24小时热门版块排行榜    

查看: 2255  |  回复: 7

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. )
回复此楼
已阅   回复此楼   关注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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 梦想 +5 myrtle 2026-08-26 8/400 2026-09-02 02:42 by Leogzhya
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-09-02 00:19 by xiangy672
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[基金申请] 学科评审组评审是指会评吗? +4 瞬息宇宙 2026-08-31 4/200 2026-09-01 14:58 by jiaoxg
[基金申请] 为什么资助数各大高校都创新高,自己申请怎么就这么难 +13 Kittylucky 2026-08-27 14/700 2026-09-01 11:06 by feng6531
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +7 gdd2018 2026-08-28 12/600 2026-09-01 08:32 by 尼古拉斯小虫
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见