vtf-logo

fsi/adlib-amroc/BlastPlate/src/cuser.i

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

      common /param/ gamma,gamma1,pi
      common /PhysData/  Wk, RU, PA
      common /wavedata/ x0,y0,z0,E0,R0,K1,time0
      common /SAmbient/ rhoamb,pamb

      double precision gamma,gamma1,pi
      double precision Wk, RU, PA
      double precision x0,E0,R0,K1,time0
      double precision rhoamb,pamb