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

cyh

这是主程序

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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数组