c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /cmydata/ rhoamb,uamb,pamb,
& rhoshk,ushk,pshk
common /cdisc/ x0,y0,alf,beta,r0,idisc
common /param/ gamma,gamma1
common /PhysData/ Wk, RU, PA
common /RightBndry/ ibnd
double precision rhoamb,uamb,pamb,rhoshk,ushk,pshk
double precision x0,y0,alf,beta,r0
integer idisc,ibnd
double precision gamma,gamma1
double precision Wk,RU,PA