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