vtf-logo

clawpack/applications/euler/1d/Shocktube/src/cuser.i

c     -*- Fortran -*-
c     :::::  cuser.i:  user parameters for specific problem
c
c     # Euler equations:

      common /param/ gamma, gamma1
      common /PhysData/  Wk, RU, PA
      common /Left/  rhol, rhoul, el, pl
      common /Right/ rhor, rhour, er, pr, sloc