c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /param/ gamma,gamma1
common /problem/ qin,rhoamb,uamb,vamb,wamb,pamb,
& rhoshk,ushk,vshk,wshk,pshk,sloc
common /cdisc/ x0,y0,alf,beta,r0,idisc
double precision gamma,gamma1,rhoamb,uamb,vamb,pamb
double precision qin(5),rhoshk,ushk,vshk,wshk,pshk,sloc
double precision x0,y0,alf,beta,r0
integer idisc