c
c ::::: cuser.i: user parameters for specific problem
c
integer leniTab
parameter ( leniTab = 50000 )
common /ITables/ xtab, qtab, Nread
common /PhysData/ Wk, g, pinf, RU, PA
common /Init/ rhoi, ui, pi, v0, al
common /Outs/ rhoo, uo, po, as
common /Boundary/ xm, vm, cm, rd, Np
double precision xtab(1:lenitab), qtab(3,1:lenitab)
double precision Wk(2), g(2), pinf(2), RU, PA
double precision rhoi, ui, pi, v0, al
double precision rhoo, uo, po, as
double precision xm, vm, cm, rd
integer Nread, Np