c
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
COMMON /interfaces/ dloc,crtnL,crtnR,zicki,
& ampL,ampR,omegaL,omegaR
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 /shockedgas/ rho_Sair,u_Sair,rhou_Sair,
& p_Sair,t_Sair,e_Sair
COMMON /configdata/ sloc,trunc, nic
COMMON /icond/qin
COMMON /bcontrol/ time_bc, p_bc, rho_bc, u_bc, n_bc
COMMON /geom/ GeomMin, GeomMax
COMMON /dcf/ sumth, sumth2, sumthbis, sumth2bis,
& dwidth, minc, minjump, gradS, thvec, thvecbis
COMMON /flagdata/ CurvP,CurvRho,CurvS
integer max_nic
parameter (max_nic=10000)
double precision qin(9,max_nic)
DOUBLE PRECISION dloc,crtnL,crtnR,zicki
DOUBLE PRECISION sloc,ampL,ampR,omegaL,omegaR
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 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 GeomMin(2), GeomMax(2)
INTEGER span, trunc, nic, 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/,/bcontrol/
save /icond/,/interfaces/,/shockedgas/
save /configdata/,/flagdata/