1 integer probnum, ihod, mx, my, neq, ientro, gorder 2 parameter (neq = 3) 3 double precision theta, pi, time, zero 4 double precision damfac 5 double precision dt, dtmin, dtmax, dtgrow, tfinal, tplot, tcscal, hcscal 6 7 double precision eigval, eigvec, rinv, roestt, fl, fr, deltau, alpha, xnumdif, froe 8 9 double precision dx, xl0, kappa0, kappaa, kappab, visc0, erg0 10 11 logical debug, dampit, wilson, dtcon, pcnew 12 13 common /params/ mx, my, probnum, ihod, ientro, gorder 14 15 common /func/ pi,zero, theta, dx, xl0, damfac, kappa0, kappaa, kappab, visc0, erg0 16 17 common /gudnov/ eigval(neq), eigvec(neq,neq), rinv(neq,neq), roestt(neq), fl(neq), fr(neq), deltau(neq), alpha(neq), xnumdif (neq), froe(neq) 18 19 common /flags/ debug, dampit, wilson, dtcon, pcnew 20 21 common /timcnt/ time, dt, dtmin, dtmax, dtgrow, tfinal, tplot, tcscal, hcscal 22 23