Fortran Coder

标题: 求助变量初始化后赋值问题 [打印本页]

作者: yubaibai88 时间: 2016-12-12 10:23
标题: 求助变量初始化后赋值问题
大家好，请教一个问题：
我的程序里面，需要调用一个函数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
子程序要求最后一个参数是双精度，而你的主程序里面 HRXI1，HRXI2 可能是单精度的。

作者: pasuka 时间: 2016-12-12 13:26
用gfortran编译的话，添加编译命令-fdefault-real-8 -fdefault-double-8看看结果差别

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)