vtf-logo

fsi/adlib-amroc/BlastWave/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
      common /PhysData/  Wk, RU, PA
      common /Sphere/ xc0,yc0,zc0,rc0,rhos,ps,es
      common /SAmbient/ rhoamb,pamb

      double precision x0,y0,alf,beta,r0
      integer idisc
      double precision gamma,gamma1,pi
      double precision Wk, RU, PA
      double precision xc0,yc0,zc0,rc0,rhos,ps,es
      double precision rhoamb,pamb