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