c -*- Fortran -*- c ::::: cuser.i: user parameters for specific problem c c # Euler equations: common /param/ gamma,gamma1,pi common /PhysData/ Wk, RU, PA common /wavedata/ x0,y0,z0,E0,R0,K1,time0 common /SAmbient/ rhoamb,pamb double precision gamma,gamma1,pi double precision Wk, RU, PA double precision x0,E0,R0,K1,time0 double precision rhoamb,pamb