c -*- Fortran -*- c ::::: cuser.i: user parameters for specific problem c c # Euler equations: common /cmydata/ rhoamb,uamb,vamb,pamb,eamb, & rhoshk,ushk,vshk,pshk,eshk, & disp,pi,Minf,aamb,t0 common /cdisc/ x0,y0,alf,beta,r0,idisc common /param/ gamma,gamma1 common /Spheres/ xm,rd,NSph,Np double precision x0,y0,alf,beta,r0 double precision rhoamb,uamb,vamb,pamb,eamb, & rhoshk,ushk,vshk,pshk,eshk, & disp,pi,Minf,aamb,t0 integer idisc double precision gamma,gamma1 double precision xm(2,5),rd(5) integer Np(5)