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