vtf-logo

fsi/sfc-amroc/ThinPlate/src/cuser.i

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

      common /cmydata/ rhoamb,uamb,vamb,wamb,pamb,eamb,
     &                 rhoshk,ushk,vshk,wshk,pshk,eshk,
     &                 disp,pi
      common /cdisc/ x0,y0,alf,beta,r0,idisc
      common /param/ gamma,gamma1

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