很简单啊，
      PROGRAM MAIN
      IMPLICIT NONE
      REAL,PARAMETER::A=3
      CALL SUB(A)
      STOP
      END
      
      SUBROUTINE SUB(A)
      REAL A
      WRITE(*,*) A
      RETURN
      END
 A就传进了子程序。