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

yubaibai88

大家好，请教一个问题：
    我的程序里面，需要调用一个函数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

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

pasuka

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