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