integer            probnum, ihod, mx, my, neq, ientro, gorder
      parameter (neq = 3)
      double precision theta, pi, time,  zero
      double precision damfac
      double precision dt, dtmin, dtmax, dtgrow, tfinal, tplot, tcscal, hcscal

      double precision eigval, eigvec, rinv, roestt, fl, fr, deltau, alpha, xnumdif, froe

      double precision dx, xl0, kappa0, kappaa, kappab, visc0, erg0

      logical debug, dampit, wilson, dtcon, pcnew

      common /params/ mx, my, probnum, ihod, ientro, gorder

      common /func/ pi,zero, theta, dx, xl0, damfac, kappa0, kappaa, kappab, visc0, erg0

      common /gudnov/ eigval(neq), eigvec(neq,neq), rinv(neq,neq), roestt(neq), fl(neq), fr(neq), deltau(neq), alpha(neq), xnumdif (neq), froe(neq)

      common /flags/ debug, dampit, wilson, dtcon, pcnew

      common /timcnt/ time, dt, dtmin, dtmax, dtgrow, tfinal, tplot, tcscal, hcscal