求助变量初始化后赋值问题

yubaibai88 · 发表于 2016-12-12 10:23:33

大家好，请教一个问题：
我的程序里面，需要调用一个函数CKHRX, 他的输出是HRXI。

在主程序里面的初始化步骤，我做了一个测试，如下：
real HRXI1 和
dimension HRXI2(II)

然后分别调用CKHRX，如下：
CALL CKHRX(I,HML,IWORK,WORK,HRXI1)
CALL CKHRX(I,HML,IWORK,WORK,HRXI2)

当我导出的时候，发现HRXI1 和 HRXI2(1) 的差别非常大，在几十个数量级。。。
程序的要求，是HRXI 需为real格式。但我不明白为什么差别会这么大。

CKHRX的代码如下：

谢谢！

li913 · 发表于 2016-12-12 10:44:11

子程序要求最后一个参数是双精度，而你的主程序里面 HRXI1，HRXI2 可能是单精度的。

pasuka · 发表于 2016-12-12 13:26:33

用gfortran编译的话，添加编译命令-fdefault-real-8 -fdefault-double-8看看结果差别

[数值问题] 求助变量初始化后赋值问题

水王勋章

元老勋章

热心勋章