!
! $Header$
!
      REAL(KIND=8) ZEELOG, ZEPSC, ZEPSCO, ZEPSCQ, ZEPSCT, ZEPSCW
      REAL(KIND=8) ZEPSEC, ZEPSCR
      PARAMETER (ZEELOG = 1.E-07) !1.e-10 (not good for 32-bit machines)
      PARAMETER (ZEPSC  = 1.E-20)
      PARAMETER (ZEPSCO = 1.E-10)
      PARAMETER (ZEPSCQ = 1.E-10)
      PARAMETER (ZEPSCT = 1.E-20)
      PARAMETER (ZEPSCW = 1.E-20)
      PARAMETER (ZEPSEC = 1.0E-12)
      PARAMETER (ZEPSCR = 1.0E-10)
!c
      REAL(KIND=8) REPSCT
      PARAMETER (REPSCT=1.0E-10)