c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /cdisc/ x0,y0,alf,beta,r0,idisc
common /param/ gamma,gamma1,pi
common /PhysData/ Wk, RU, PA
common /Sphere/ xc0,yc0,zc0,rc0,rhos,ps,es
common /SAmbient/ rhoamb,pamb
double precision x0,y0,alf,beta,r0
integer idisc
double precision gamma,gamma1,pi
double precision Wk, RU, PA
double precision xc0,yc0,zc0,rc0,rhos,ps,es
double precision rhoamb,pamb