c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /param/ gamma,gamma1,q0
common /PhysData/ Wk, RU, PA
common /PreShock/ p0,rho0,u0
common /Shock/ pshk,rhoshk,ushk,xs
common /Interface/ rho1,ai,aw,ap,x0,pi
double precision gamma,gamma1,q0
double precision Wk(2),RU,PA
double precision p0,rho0,u0
double precision pshk,rhoshk,ushk,xs
double precision rho1,ai,aw,ap,x0,pi