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

pass74 · 发表于 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 回车后出现以上错误，请问是为什么？源代码在附件中，已经困惑两天了，谢谢

fcode · 发表于 2014-4-2 18:33:45

请问主程序在哪儿？还有 SPIN 函数（子程序）找不到

pass74 · 发表于 2014-4-2 19:59:50

fcode 发表于 2014-4-2 18:33
请问主程序在哪儿？还有 SPIN 函数（子程序）找不到

不好意思，刚刚疏忽了，主程序在文件NRLXRF.FOR中，附件文件已更新，谢谢

fcode · 发表于 2014-4-2 20:11:46

主程序有了，现在缺 SPIN 子程序

pass74 · 发表于 2014-4-2 20:31:55

fcode 发表于 2014-4-2 20:11
主程序有了，现在缺 SPIN 子程序

SPIN 子程序在文件NRL4.FOR中呢

fcode · 发表于 2014-4-2 21:00:50

你确定你的代码在 IVF 上能编译链接？我这里一大堆的错误，各种类型不匹配，各种common溢出，各种实参虚参不匹配。

fcode · 发表于 2014-4-2 21:03:11

比如说吧。
NRL2.for 中。251行

[Fortran] 纯文本查看 复制代码

 character*10     HBL6 , HUND, HXU, HXS
      DOUBLE PRECISION SDUMP

后面又
SDUMP( 1)= HBL6

双精度数组，怎么能等于字符串呢？

pass74 · 发表于 2014-4-3 08:32:15

fcode 发表于 2014-4-2 21:03
比如说吧。
NRL2.for 中。251行
[mw_shl_code=fortran,true] character*10 HBL6 , HUND, HXU, HXS

在IVF下编译（源码是由Fortran 66和77写的，所以个别地方需做修改方能编译通过，主程序在文件NRLXRF.FOR中）通过后。。。我是把这几个地方修改之后才编译通过的，源文件中有个NRLX.EXE，不用修改直接就能运行，但用IVF运行就会出现以上你说的错误，也正在纳闷他是怎么运行的

pass74 · 发表于 2014-4-3 08:53:08

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

附件中我又添加了一个修改过的，就是把一些变量类型转换成同一类型等等，修改之后编译能通过，运行时会出现以下错误：fortran中forrtl:severe(24):end-of-file during read,unit 1··

楚香饭 · 发表于 2014-4-3 08:59:06

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

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

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

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

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章