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 3 4 double precision eigval, 5 eigvec, rinv, roestt, fl, fr, deltau, alpha, xnumdif, 6 froe 7 8 double precision dx, 9 xl0, kappa0, kappaa, kappab, visc0, 10 erg0 11 12 logical debug, 13 dampit, wilson, dtcon, 14 pcnew 15 16 common 17 / params / mx, 18 my, probnum, ihod, ientro, 19 gorder 20 21 common 22 / func / pi, 23 zero, theta, dx, xl0, damfac, kappa0, kappaa, kappab, visc0, 24 erg0 25 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) 30 31 common 32 / flags / debug, 33 dampit, wilson, dtcon, 34 pcnew 35 36 common 37 / timcnt / time, 38 dt, dtmin, dtmax, dtgrow, tfinal, tplot, tcscal, hcscal 39