stream.f.html | ![]() |
Source file: stream.f | |
Directory: /home/rjl/git/claworg/clawpack-4.x/apps/advection/2d/annulus | |
Converted: Sat Aug 6 2011 at 21:53:01 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