|
你的代码比较混乱,主要是体现在 real 的精度上。
有的函数里有 IMPLICIT DOUBLE PRECISION (A-H,O-Z),有的没有,有的还被注释了(不知道为啥)
所以导致 BHPT 的参数精度不一致(这便是你遇到的问题)。
我统一在编译时指定了默认real类型为 8,这个错误就消失了。(这样子是否合理,我不确定)
然后,我遇到了第二个问题。
The storage extent of the dummy argument exceeds that of the actual argument. [WX]
这是由于对 call wxpt(100.0d0,t,wx) 的调用中,虚参 wx 是 10 个元素的数组,而实参是 9 个元素。
我统一修改为 10 个(有多处),第二个问题消失了。(这样子是否合理,我还是不确定)
最后,我遇到了第三个错误:
无法解析的外部符号 _MAIN__
这是因为你的代码里没有主程序,该问题需要你提供主程序。
最后,因为你的编译器可能与我的不同,尤其对于不规范的代码,可能你去编译会有其他的问题。 |
|