      real*8 e,pi,rhow
      complex*16 imunit
      parameter (pi=3.14159265358979d0)
      parameter (e=2.71828182845905d0)
      parameter (rhow=1000.0d0)
      parameter (imunit=(0.0,1.0))
