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