vtf-logo

clawpack/applications/euler/2d/Cyl/src/cuser.i

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

      common /cdisc/ x0,y0,alf,beta,r0,idisc
      common /param/ gamma,gamma1,pi

      double precision x0,y0,alf,beta,r0
      integer idisc
      double precision gamma,gamma1,pi