c
c ::::: cuser.i: user parameters for specific problem
c
parameter( lengrkw = 580, lenint = 21 )
parameter( logout = 10 )
parameter ( leniTab = 50000 )
c
common /grkArrays/ grkwork(lengrkw), igrkwork(lenint)
common /Unburned/ rho0, p0, rhou0, E0, T0, h0, W0
common /vNpoint/ rhov, pv, uv, Tv, sloc, udet, Yk(leNsp)
common /Pocket/ rhop, Tp, x1p, x2p, Ykp(leNsp)
common /Bdry/ NStat, NCal