renlu617 发表于 2014-10-25 16:30:45

实参虚参不匹配的问题

什么叫实参什么叫虚参呢，当出现这个问题时错误是实参比虚参多么？
错误      1         error #6784: The number of actual arguments cannot be greater than the number of dummy arguments.         C:\B90V4\FOR\B90.FOR      111      
错误      2         error #6634: The shape matching rules of actual arguments and dummy arguments have been violated.         C:\B90V4\FOR\B90.FOR      111      




renlu617 发表于 2014-10-25 16:31:55

SUBROUTINE CANOPY (DOY, MAXHT, RELHT, MAXLAI, MXMAI,RELLAI,RELMAI,
   *    SNOW,SNODEN, MXRTLN, MXKPL, CS, DENSEF, HEIGHT, LAI, SAI,
   *   MAI, RTLEN,RPLANT)
C   canopy parameters
      IMPLICIT NONE
C   input
         INTEGER DOY      ! day of year (first day of DFILE and run)"
         REAL    MAXHT    ! maximum height for the year, m, minimum of 0.01 m
         REAL   RELHT(*)! ten pairs of DOY and relative canopy height
         REAL   MAXLAI    ! maximum projected leaf area index for the year,m2/m2
         REAL   MXMAI
         REAL   RELLAI(*) ! ten pairs of DOY and relative LAI
         REAL   RELMAI
         REAL   SNOW      ! water equivalent of snow on the ground, mm
         REAL   SNODEN    ! snow density, mm/mm
         REAL   MXRTLN    ! maximum root length per unit land area, m/m2
         REAL   MXKPL   ! maximum plant conductivity, (mm/d)/MPa
         REAL   CS      ! ratio of projected SAI to canopy height, m-1
         REAL   DENSEF    ! density factor
C   output
         REAL   HEIGHT    ! canopy height above any snow, m, minimum of 0.01 m
         REAL   LAI       ! leaf area index, m2/m2, minimum of 0.00001
         REAL   SAI       ! stem area index, m2/m2
         REAL   MAI
         REAL   RTLEN   ! root length per unit land area, m/m2
         REAL   RPLANT    ! plant resistivity to water flow, MPa d/mm
C   local
         REAL   SNODEP    ! snow depth
         REAL   HNOSNO    ! height of canopy without snow
         REAL   HSNO      ! height of canopy above snow
         REAL   RATIO   ! fraction of canopy above snow
         REAL   RELHIT    ! RELHT for DOY
         REAL   KPL       ! plant conductivity, mm d-1 MPa-1
C   intrinsic
C      REAL, MAX
C   external functions needed
         REAL   INTERP
C
      RELHIT = INTERP(10, RELHT, REAL(DOY))
      SNODEP = .001 * SNOW / SNODEN
      HNOSNO = MAX(.01, RELHIT * MAXHT)
      HSNO = MAX(0., HNOSNO - SNODEP)
      RATIO = HSNO / HNOSNO
      HEIGHT = MAX(.01, HSNO)
C
      LAI = RATIO * DENSEF * INTERP(10, RELLAI, REAL(DOY)) * MAXLAI
      SAI = DENSEF * CS * HEIGHT
      MAI = INTERP(10, RELMAI, REAL(DOY)) * MXMAI
      IF (LAI .LT. .00001) LAI = .00001
C
      RTLEN = DENSEF * RELHIT * MXRTLN
      KPL = DENSEF * RELHIT * MXKPL
      IF (KPL .LT. 1E-08) KPL = 1E-08
      RPLANT = 1. / KPL
C
      END

renlu617 发表于 2014-10-25 16:32:21

以上是代码部分，附件添加错了

楚香饭 发表于 2014-10-25 16:37:29

经典的举例：

call 结婚（赵又廷，高圆圆）
call 结婚（张三，李四）

subroutine 结婚（男方，女方）
男方和女方领结婚证
男方和女方办酒席
end subroutine 结婚

男方、女方是虚参。
高圆圆、赵又廷、张三、李四 是实参。

你的错误1，是实参虚参个数不一样。比如虚参要求男方女方两个人，你却 call 结婚（张三），少了一个人，或多了一个人，都没法结婚。
错误2，是参数数组的外形不一样。比如虚参要求男方女方都是一个人，你却 call 结婚（SHE，Twins），每个名字都是一个团队，也没法结婚。

renlu617 发表于 2014-10-25 18:38:10

谢谢，果然是she和高圆圆的问题

百事可乐 发表于 2014-10-30 09:37:52

{:3_50:}让我们这些集体婚礼的情何以堪？
页: [1]
查看完整版本: 实参虚参不匹配的问题