applications/euler/3d/BackwardFacingStep/src/cuser.i

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

       common /param/  gamma,gamma1
       common /problem/ qin,rhoamb,uamb,vamb,wamb,pamb,
     &    rhoshk,ushk,vshk,wshk,pshk,sloc
       common /cdisc/ x0,y0,alf,beta,r0,idisc
 
       real*8  gamma,gamma1,rhoamb,uamb,vamb,pamb
       real*8  qin(5),rhoshk,ushk,vshk,wshk,pshk,sloc
       real*8  x0,y0,alf,beta,r0
       integer idisc