implicit real*8 (a-h, l, m, o-z)
      parameter (pi = .31415926535897932D+01)
      parameter (minus1 = -.01D2)
      parameter (half = 5.D-1)
      write(*,*) minus1*pi,half
      stop
      end