|
藍原なみだ 发表于 2018-6-27 19:19
subroutine lineplu_v1的宣告:
REAL*8 ALPHA,AREA,B,CO2,COMG,CN2,CNMG,DS,DZ,DENSEA,DENSEP,DENSEW,
1. REAL(8) 是 REAL(KIND=8), REAL*8 是 8-byte REAL, 兩者不一定相同 (compiler dependent)
如果有問題, compile-time 應該就知道, 所以就不是這個問題
建議你通通改為 REAL*8, 或是
INTEGER, PARAMETER :: r8=SELECTED_REAL_KIND(P=15)
REAL(KIND=r8) :: ...
2. 請問你的 compiler ?
3. 請告知 完整的 SUBROUTINE title
SUBROUTIEN doubplu_v1(...)
SUBROUTINE lineplu_v1(...)
4. 請先自己檢查 "虛參"與"實參"的對應 是否一致
5. ksrc=?, km1=?
REAL(8), DIMENSION (1:km1) :: qwd, bwd
CALL lineplu_v1(..., qwd(1:ksrc), bwd(1:ksrc), ...) |
|