数组实参传递到虚参出错

藍原なみだ · 发表于 2018-6-28 16:10:27

chiangtp 发表于 2018-6-27 21:17
應該就是錯在這裡: in SUBROUTINE DOUBPLU_v1
REAL*8 :: CO2M ---> REAL*8 :: CO2M(1000)

非常感谢你，但是我修改为CO2M(1000)以后运行，赋值仍然和以前一样......

chiangtp · 发表于 2018-6-28 17:39:13

藍原なみだ发表于 2018-6-28 16:10
非常感谢你，但是我修改为CO2M(1000)以后运行，赋值仍然和以前一样......

實參 salamb 與 patm 的 type?

[子程序] 数组实参传递到虚参出错