fss.f.html | |
Source file: fss.f | |
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.3/amrclaw/2d/lib | |
Converted: Mon Jan 21 2013 at 20:15:11 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