c
c ::::: cuser.i: user parameters for specific problem
c
common /param/ gamma,gamma1,q0
common /param2/ E0,f,treac,sloc,Pact,moving
common /CJ/ Dj,D,Vj,Pj,clambda,cfact
common /PhysData/ Wk(2), RU, PA
common /CJn/ rho0,V0,P0,U0,qn
common /Tube/ rf,rfi