c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /cmydata/ rhoamb,uamb,vamb,wamb,pamb,eamb,
& s1amb,s2amb,dcamb,
& rhoshk,ushk,vshk,wshk,pshk,eshk,
& s1shk,s2shk,dcshk,
& ashk,disp,pi,Minf,t1,t2,uf
common /cdisc/ x0,y0,alf,beta,r0,idisc
common /Spheres/ xm,rd,NSph,Np
double precision rhoamb,uamb,vamb,wamb,pamb,eamb,
& s1amb,s2amb,dcamb,
& rhoshk,ushk,vshk,wshk,pshk,eshk,
& s1shk,s2shk,dcshk,
& ashk,disp,pi,Minf,t1,t2,uf
double precision x0,y0,alf,beta,r0
integer idisc
double precision xm(3,5),rd(5)
integer Np(5)