Date: 2025-03-29T05:58:41+00:00

Actual source code: ex74fcomd.h

      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