|
stream.f.html |
clawcode2html
|
|
Source file: stream.f
|
|
Directory: /home/rjl/www/pubs/cise08/cise08levequeV2
|
|
Converted: Wed Jul 2 2008 at 13:40:43
|
|
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