| stream.f.html |   | 
  | Source file:   stream.f | 
| Directory:    /Users/rjl/git/rjleveque/clawpack-4.6.2/apps/advection/2d/annulus | 
| Converted:    Wed May 30 2012 at 13:01:38 
  using clawcode2html | 
| This documentation file will 
not reflect any later changes in the source file. | 
 
c
c     =================================================
      function stream(x,y)
c     =================================================
c
c     # Stream function in physical space (x,y).
c     # Clockwise rotation, rotates fully in time 1.
      implicit double precision (a-h,o-z)
      stream = 3.1415926535897931d0 *(x**2 + y**2)
c
      return
      end