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