vtf-logo

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

c
c      :::::  cuser.i:  user parameters for specific problem
c
      parameter ( leniTab = 50000 )
      common /ITables/ xtab(1:lenitab), qtab(4,1:lenitab), Nread
c
      common /param/  gamma, gamma1, q0
      common /PhysData/  Wk(2), RU, PA
      common /Left/   rhol, ul, pl, Yl 
      common /Right/  rhor, ur, pr, Yr, sloc
      common /Outs/   rhoo, uo, po, Yo 
      common /CJ/     V0,P0,Vj,Pj,Uj,Yact
      common /Tube/   rf,zt0,zt1
      common /Bndry/  rfback, Nback