c -*- Fortran -*- c ::::: cuser.i: user parameters for specific problem c c # Euler equations: common/cdisc/ x0,y0,alf,beta,r0,idisc double precision x0,y0,alf,beta,r0 integer idisc