psi.f.html | |
Source file: psi.f | |
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.3/apps/advection/2d/swirl | |
Converted: Mon Jan 21 2013 at 20:15:22 using clawcode2html | |
This documentation file will not reflect any later changes in the source file. |
c c ================================================= double precision function psi(x,y) c ================================================= c c # stream function implicit double precision (a-h,o-z) common /compsi/ pi psi = ((dsin(pi*x))**2 * (dsin(pi*y))**2) / pi c return end