fss.f.html
Source file:   fss.f
Directory:   /home/rjl/git/claworg/clawpack-4.x/amrclaw/2d/lib
Converted:   Sat Aug 6 2011 at 21:53:20   using clawcode2html
This documentation file will not reflect any later changes in the source file.

 
c
c
c
c
c
c     =================================================
      function fss(s)
c     =================================================
      implicit double precision (a-h,o-z)
      common/fsscorn/ xc0,yc0,xc1,yc1
c   
c     # compute fdisc at distance s between corners (xc0,yc0) and (xc1,yc1)
c
      x = xc0 + s*(xc1-xc0)
      y = yc0 + s*(yc1-yc0)
      fss = fdisc(x,y)
      return
      end