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

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的代码如下：
   

谢谢！