c -*- Fortran -*-
c
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /param/ gamma,gamma1,q0
common /PhysData/ Wk, RU, PA
common /GudTab/ yar,var,uar,par,rhar
common /GudPar/ ms,mach,r0,t0,al,x0,y0,pi,rd
common /PreShock/ p0,rho0,temp0
common /Interface/ rho1,ri,ai,aw
common /Refl/ rdi
double precision gamma,gamma1,q0
double precision Wk(2),RU,PA
double precision yar(0:10000),var(0:10000),uar(0:10000),
& par(0:10000),rhar(0:10000)
double precision ms,mach,r0,t0,al,x0,y0,pi,rd
double precision p0,rho0,temp0
double precision rho1,ri,ai,aw
double precision rdi