program test

      integer          ipar
      real             rpar
      double precision dpar

      parameter (ipar=42.42D0)
      parameter (rpar=42.42D0)
      parameter (dpar=42.42D0)

      print *,ipar,rpar,dpar

      stop
      end