Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › fortran中forrtl:severe(24):end-of-file during read,u ...

fortran中forrtl:severe(24):end-of-file during read,unit 7··

查看数: 49263 | 评论数: 19 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

pass74

发布时间: 2014-4-2 17:59

正文摘要:

本帖最后由 pass74 于 2014-4-3 08:54 编辑在IVF下编译（源码是由Fortran 66和77写的，所以个别地方需做修改方能编译通过，主程序在文件NRLXRF.FOR中）通过后，运行时输入 1 回车 RES 回 ...

pass74 发表于 2014-4-3 21:57:57

本帖最后由 pass74 于 2014-4-3 22:01 编辑

chuxf 发表于 2014-4-3 12:28
我估计代码也不是你写的。

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

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

楚香饭 发表于 2014-4-3 12:28:49

我估计代码也不是你写的。

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

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

楚香饭 发表于 2014-4-3 10:33:12

IVF 不允许对 0 通道号直接使用。

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

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

楚香饭 发表于 2014-4-3 10:07:09

12楼的错误不是没有了，还在。

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

楚香饭 发表于 2014-4-3 10:05:56

检查一下 XRDATS 文件是否有内容吧。应该是 6KB，你是否弄没了？变成了 0 KB ？

fcode 发表于 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 ？你自己好像都说得不一致。

fortran中forrtl:severe(24):end-of-file during read,unit 7··

正文摘要:

回复