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

cyh

这是主程序

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

program Console1
implicit  none
Integer,parameter::nm=100
call   start(nm)
end
!这是子例行程序
SUBROUTINE start(nm)
     implicit  real*8 ( a-h,o-z )
      integer*4       tv0001
common/area1/x0(nm)
    end

现在的问题是在子例行程序中怎么接受nm这个常量值,然后赋值给common中这个x0数组

necrohan

既然nm是常数，在子程序重新定义一下不就行了？如果很多地方都用也可以单独生成一个include文件共同引用

li913

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

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

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

fcode

都什么年代了，还用 common