applications/euler/2d/Ramp/src/cuser.i

c
c      :::::  cuser.i:  user parameters for specific problem
c
c      # Euler equations:

       common /cmydata/ rhoamb,uamb,vamb,pamb,eamb,
     &	                rhoshk,ushk,vshk,pshk,eshk,
     &	                disp,pi
       common /cdisc/ x0,y0,alf,beta,r0,idisc
       common /param/ gamma,gamma1
       common /infl/  qinfl
 
       real*8  x0,y0,alf,beta,r0
       integer idisc
       real*8  gamma,gamma1
       real*8  qinfl(4)