Fortran Coder

查看: 49264|回复: 19
打印 上一主题 下一主题

[文件读写] fortran中forrtl:severe(24):end-of-file during read,unit 7··

[复制链接]

12

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
31 点
跳转到指定楼层
楼主
发表于 2014-4-2 17:59:43 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式
本帖最后由 pass74 于 2014-4-3 08:54 编辑

在IVF下编译(源码是由Fortran 66和77写的,所以个别地方需做修改方能编译通过,主程序在文件NRLXRF.FOR中)通过后,运行时输入 1  回车  RES 回车  CON 57 40 W 45 26 1 回车后出现以上错误,请问是为什么?源代码在附件中,已经困惑两天了,谢谢

NRLXRF1.rar

351.28 KB, 下载次数: 11

修改之后.rar

356.15 KB, 下载次数: 9

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

12

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
31 点
20#
 楼主| 发表于 2014-4-3 21:57:57 | 只看该作者
本帖最后由 pass74 于 2014-4-3 22:01 编辑
chuxf 发表于 2014-4-3 12:28
我估计代码也不是你写的。

这段代码非常非常老,可读性很差。确实遇到问题不知道怎么办。(除非你可以联系 ...

12#的问题还是没能解决,我又下载安装了CVF6.6,运行后程序能全部走完,就是结果不对,但最终还是想在IVF下调试和修改

736

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
700 元
贡献
359 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

19#
发表于 2014-4-3 12:28:49 | 只看该作者
我估计代码也不是你写的。

这段代码非常非常老,可读性很差。确实遇到问题不知道怎么办。(除非你可以联系上作者)

如果你能弄清楚这部分读取的是什么文件,那就好办了。给 KRA 一个初值就可以了。

12

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
31 点
18#
 楼主| 发表于 2014-4-3 12:22:26 | 只看该作者
本帖最后由 pass74 于 2014-4-3 12:24 编辑
chuxf 发表于 2014-4-3 10:33
IVF 不允许对 0 通道号直接使用。

你应该了解一下此处是屏幕输入,还是文件输入?如果是文件输入,了解一 ...

问题可能出在以下(图片标注的地方),“IF ( IBUFA.LE. 0) GO TO 3”   这一句直接跳过了 “   2     KRA= IA       CALL FILIO( KRA, 4, 1, 1, 1) ”的执行,导致KRA=0,下面就找不到设备号为0的文件,至于为什么会跳过目前还没找到原因,因为源程序不是我写的,但既然他能运行出结果说明源程序本身没问题,我再找找原因,实在找不出再麻烦你,非常感谢!

QQ图片20140403114922.jpg (106.54 KB, 下载次数: 459)

QQ图片20140403114922.jpg

QQ图片20140403110743.jpg (116.15 KB, 下载次数: 466)

QQ图片20140403110743.jpg

736

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
700 元
贡献
359 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

17#
发表于 2014-4-3 10:33:12 | 只看该作者
IVF 不允许对 0 通道号直接使用。

你应该了解一下此处是屏幕输入,还是文件输入?如果是文件输入,了解一下此处应该从哪个文件输入?假设为 a.txt

那么在程序一开始加一句 Open( 0 , File = 'a.txt' )

12

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
31 点
16#
 楼主| 发表于 2014-4-3 10:18:06 | 只看该作者
本帖最后由 pass74 于 2014-4-3 10:19 编辑
chuxf 发表于 2014-4-3 10:07
12楼的错误不是没有了,还在。

你的问题是出现了一个新的错误(XRDATS文件内容丢失),而这个错误早于12楼 ...

还真是你说的那样,现在原问题解决了,又出现了之前的那个问题,就是和你一样的问题:

QQ图片20140403101932.jpg (174.55 KB, 下载次数: 426)

QQ图片20140403101932.jpg

QQ图片20140403101941.jpg (66.55 KB, 下载次数: 446)

QQ图片20140403101941.jpg

736

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
700 元
贡献
359 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

15#
发表于 2014-4-3 10:07:09 | 只看该作者
12楼的错误不是没有了,还在。

你的问题是出现了一个新的错误(XRDATS文件内容丢失),而这个错误早于12楼的错误。因此你只能看到这个错误,12楼的错误还没有引发。

736

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
700 元
贡献
359 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

14#
发表于 2014-4-3 10:05:56 | 只看该作者
检查一下 XRDATS 文件是否有内容吧。应该是 6KB,你是否弄没了?变成了 0 KB ?

12

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
31 点
13#
 楼主| 发表于 2014-4-3 09:56:39 | 只看该作者
fcode 发表于 2014-4-3 09:26
我现在可以正常编译链接了。但是出现错误的位置与你不同。

NRL40.for 文件 568 行

谢谢你的耐心回答,我一开始也是碰到这个错误,后来也不知道怎么的这个错误就没了,又出现了fortran中forrtl:severe(24):end-of-file during read,unit 1··都是在READ语句这里出错, 关于设备号KRA = 0我也没搞懂什么原因,我的错误是发生在以下:

QQ图片20140403095408.jpg (87.9 KB, 下载次数: 460)

QQ图片20140403095408.jpg

QQ图片20140403095414.jpg (66.82 KB, 下载次数: 454)

QQ图片20140403095414.jpg

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

12#
发表于 2014-4-3 09:26:12 | 只看该作者
我现在可以正常编译链接了。但是出现错误的位置与你不同。

NRL40.for 文件 568 行
READ( KRA, 101) NZLAST, IZERO,( BUF5( IJ), IJ= 1, 5)

此时的 KRA = 0,前面也没有 Open 过 0 的文件,IVF不允许文件通道号为0,这是屏幕读取吗?
还有你的错误,是发生在文件通道号 1 还是 7 ?你自己好像都说得不一致。






您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 16:21

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表