如何接受传递过来的常量值

li913

[Fortran] 纯文本查看 复制代码

SUBROUTINE start(nm)
     implicit  real*8 ( a-h,o-z )
      integer*4       nm

    common/area1/x0(nm)
x0=nm
    end