fdisc.f.html clawcode2html   
 Source file:   fdisc.f
 Directory:   /home/rjl/www/pubs/cise08/cise08levequeV2/lib
 Converted:   Wed Jul 2 2008 at 13:39:53
 This documentation file will not reflect any later changes in the source file.

c
c
c
c     =================================================
      function fdisc(x,y)
c     =================================================

      implicit double precision (a-h,o-z)

c
c     # For computing cell averages for initial data or coefficients that
c     # have a discontinuity along some curve.  

c     # fdisc should be negative to the "left" of the curve and 
c     # positive to the "right".

c     # The cellave routine can then be used to compute the fraction wl of
c     # a grid cell that lies to the "left" of the curve.

c     # Sample code for the case where the curve is the unit circle:

      fdisc = x**2 + y**2 - 1.d0
c
      return
      end