---

weno/applications/euler/2d/Box/src/cuser.i

c     -*- Fortran -*-
      common /cdisc/ x0,y0,alf,beta,r0,idisc

      double precision x0,y0,alf,beta,r0
      integer idisc