c************************************************************************
      parameter (MAXNB = 9000, MXBDY = 9000, MAXSP = 40000, MAXTR = 100,
     *           MAXSID = 1000, MAXXS = 50,   MAXNZ = 30,   MAXSND = 6800)
      parameter (MINSEG = 4)
      parameter (MPTEN  = 6)
      parameter (MAXTR_SUR  = 10)
 
      parameter (D2SEC  = 86400.)
      parameter (GRAVTY = 9.8)
 
      parameter (TALPHA = 2.55e-4)
      parameter (SIGMA0 = 27.)
      parameter (TCOEF = TALPHA * (1000. + SIGMA0))

c************************************************************************