c
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /interfaces/ dloc,crtnL,crtnR,zicki
common /Left/ rho_hemx, rhou_hemx, e_hemx, p_hemx,
& u_hemx,t_hemx,fraction_air
common /Right/ rho_air, rhou_air, e_air, p_air,
& u_air,t_air
common /Curtain/ rho_sf6, rhou_sf6, e_sf6, p_sf6,
& u_sf6,t_sf6
common /dcf/ sumth, sumth2, sumthbis, sumth2bis,
& dwidth, minc, minjump, gradS, thvec, thvecbis
common /geom/ GeomMin, GeomMax
COMMON /configdata/ sloc,trunc
COMMON /shockedgas/ rho_Sair,u_Sair,rhou_Sair,
& p_Sair,t_Sair,e_Sair
COMMON /bcontrol/ time_bc, p_bc, rho_bc, u_bc, n_bc
COMMON /flagdata/ CurvP,CurvRho,CurvS
DOUBLE PRECISION rho_Sair,u_Sair,p_Sair,t_Sair,
& e_Sair,rhou_Sair
DOUBLE PRECISION time_bc(100), p_bc(100), rho_bc(100),
& u_bc(100)
double precision dloc,crtnL,crtnR,zicki
double precision rho_hemx,rhou_hemx,e_hemx,p_hemx,
& u_hemx,t_hemx,fraction_air
double precision rho_air, rhou_air, e_air, p_air,
& u_air,t_air
double precision rho_sf6, rhou_sf6, e_sf6, p_sf6,
& u_sf6,t_sf6
double precision GeomMin(1), GeomMax(1), sloc
integer span, trunc, n_bc
parameter (span=2)
double precision sumth, sumth2, sumthbis, sumth2bis
double precision thvec(-span:span),thvecbis(-span:span-1)
double precision dwidth, minc, minjump, gradS
double precision CurvP, CurvRho, CurvS
save /Left/,/Right/,/Curtain/,/dcf/,/geom/,/configdata/
save /shockedgas/,/interfaces/,/bcontrol/,/flagdata/