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