c c ::::: cuser.i: user parameters for specific problem c common /param/ gamma,gamma1,q0 common /param2/ E0,f,dhalbe,sloc,moving common /useznd/ mznd common /PhysData/ Wk(2), RU, PA