1: 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,
  2:   hcscal

  4:   double precision eigval,
  5:   eigvec, rinv, roestt, fl, fr, deltau, alpha, xnumdif,
  6:   froe

  8:   double precision dx,
  9:   xl0, kappa0, kappaa, kappab, visc0,
 10:   erg0

 12:   logical debug,
 13:   dampit, wilson, dtcon,
 14:   pcnew

 16:     common
 17:     / params / mx,
 18:   my, probnum, ihod, ientro,
 19:   gorder

 21:     common
 22:     / func / pi,
 23:   zero, theta, dx, xl0, damfac, kappa0, kappaa, kappab, visc0,
 24:   erg0

 26:     common
 27:     / gudnov / eigval(neq),
 28:   eigvec(neq, neq), rinv(neq, neq), roestt(neq), fl(neq), fr(neq), deltau(neq), alpha(neq), xnumdif(neq),
 29:   froe(neq)

 31:       common
 32:     / flags / debug,
 33:   dampit, wilson, dtcon,
 34:   pcnew

 36:     common
 37:     / timcnt / time,
 38:   dt, dtmin, dtmax, dtgrow, tfinal, tplot, tcscal, hcscal