[子程序] 如何接受传递过来的常量值

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

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

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