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

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

	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)