common /gasdata/ rho_Uair,rho_Usf6,u_Uair,u_Usf6,
& p_Uair,p_Usf6,t_Uair,t_Usf6
common /shockedgas/ rho_Sair,u_Sair,p_Sair,t_Sair
common /configdata/ sloc,cloc,shockmach,amp
common /bcontrol/ time_bc, p_bc, rho_bc, u_bc
common /dcflagdata/ ShockLaxThres, MappThres, ScalThres
common /domain/xmin, xmax
DOUBLE PRECISION rho_Uair,rho_Usf6,u_Uair,u_Usf6,
& p_Uair,p_Usf6,t_Uair,t_Usf6
DOUBLE PRECISION rho_Sair,u_Sair,p_Sair,t_Sair
DOUBLE PRECISION sloc,cloc,shockmach,amp
double precision time_bc(2), p_bc(2), rho_bc(2), u_bc(2)
DOUBLE PRECISION ShockLaxThres, MappThres, ScalThres
double precision xmin, xmax
SAVE /gasdata/,/shockedgas/,/configdata/,
& /bcontrol/,/dcflagdata/,/domain/