c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
c # Euler equations:
common /PhysData/ Wk, g, pinf, RU, PA
common /cdisc/ x0,y0,alf,beta,r0,idisc
common /Sphere/ xc0,yc0,rc0,rhos,ps,es
common /air/ pai,rhoai
common /water/ pw,rhow,wlev,grav
common /LSegs/ xs(2,3), vns(2,3), vls(3), ifs(3), Nsegs
common /ArcSegs/ xa(2,3), vna(2,2,3), vra(3), ifa(3), Narcs
double precision Wk(2), g(2), pinf(2), RU, PA
double precision x0,y0,alf,beta,r0
double precision xc0,yc0,rc0,rhos,ps,es
double precision pai,rhoai,pw,rhow,wlev,grav