请教一下Fortran程序中子程序参数为何发生变化

elf唯sj · 发表于 2018-11-20 19:52:23

GREASELINETHERMEHL.f90 (15.61 KB, 下载次数: 10)
这个程序同样出现nan的问题经过我单步调试发现子程序EROEQ在结束第二轮的第一次循环后，参数B1的值正常，为1点多，为什么进入第二轮第二次循环时，B1的值自动变为了0，导致后面出现nan，刚刚接触Fortran不久，请各位大神赐教，感激不尽。

elf唯sj · 发表于 2018-11-27 18:18:18

vvt 发表于 2018-11-26 08:32
Projects 菜单，Build Options，Other Options

十分感谢！

vvt · 发表于 2018-11-26 08:32:28

Projects 菜单，Build Options，Other Options

elf唯sj · 发表于 2018-11-24 08:23:49

vvt 发表于 2018-11-22 12:21
你可以在每个子程序里都加上
save

好的十分感谢！请问编译选项这个怎么加啊我不大明白

vvt · 发表于 2018-11-22 12:21:51

本帖最后由 vvt 于 2018-11-22 12:23 编辑

你可以在每个子程序里都加上
save

比如
subroutine sub()
save
end subroutine sub

然后编译选项加上
-finit-local-zero
QQ微信就不用加了，你可以加本论坛QQ群：2338021

elf唯sj · 发表于 2018-11-22 10:33:47

vvt 发表于 2018-11-21 21:49
这程序你也别改了，错误太多太多了。各种变量都需要 save
比如
UCAL 函数里的 A1 A2 A3

可否跟您加一下qq或者微信之类的

elf唯sj · 发表于 2018-11-22 10:28:44

vvt 发表于 2018-11-21 21:49
这程序你也别改了，错误太多太多了。各种变量都需要 save
比如
UCAL 函数里的 A1 A2 A3

啊这些都要save啊可是我用的是codeblocks 没找到在哪里设置所有变量save
所以您调试以后就是这个变量save的问题吗

vvt · 发表于 2018-11-21 21:49:51

这程序你也别改了，错误太多太多了。各种变量都需要 save
比如
UCAL 函数里的 A1 A2 A3
THERM 函数里的 T
TCAL 函数里的 A1 A2 A3 A4 A5 A6
等等

如果你使用的 IVF，你可以在工程属性里这样设置：

elf唯sj · 发表于 2018-11-21 20:19:21

vvt 发表于 2018-11-21 19:53
就是你运行程序以后该输入什么？

READ(*,'(A)')S

这个不需要输入在上一步'Show the example or not (Y or N) 这里输入y就可以了

vvt · 发表于 2018-11-21 19:53:50

就是你运行程序以后该输入什么？

READ(*,'(A)')S
READ(*,*)W,US,FF
READ(*,*)NZ,CU

这些

[子程序] 请教一下Fortran程序中子程序参数为何发生变化

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章