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

楚香饭

pass74 发表于 2014-4-3 08:32
在IVF下编译（源码是由Fortran 66和77写的，所以个别地方需做修改方能编译通过，主程序在文件NRLXRF.FOR ...

你应该一开始就给修改以后的，至少能正常编译链接的。

文件中的 NRLX.exe 是其他编译器编译出来的。大概早期的编译器对语法检查不严格，所以允许这些错误存在吧。

楚香饭

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

楚香饭

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

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

楚香饭

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

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

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

楚香饭

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

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

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