c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /PhysData/ Wk, g, pinf, RU, PA
common /GudTab/ yar,var,uar,par,rhar
common /GudPar/ ms,mach,r0,t0,al,x0,y0,pi,rd,gamma
common /PreShock/ p0,rho0,temp0
common /Interface/ rho1,ri,ai,aw
common /Refl/ angpl, rdi
double precision Wk(2), g(2), pinf(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,gamma
double precision p0,rho0,temp0
double precision rho1,ri,ai,aw
double precision angpl, rdi