!     unit numbers:

      integer isterr, istin, istout
      parameter (isterr = 0)
      parameter (istin  = 5)
      parameter (istout = 6)

!     numbers

      real*8 bigneg, bigpos
      parameter (bigpos = 9.d98)
      parameter (bigneg = -9.d98)