|  | 
| 你的代码比较混乱,主要是体现在 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__
 这是因为你的代码里没有主程序,该问题需要你提供主程序。
 
 最后,因为你的编译器可能与我的不同,尤其对于不规范的代码,可能你去编译会有其他的问题。
 | 
 |