mapc2p.f.html | |
Source file: mapc2p.f | |
Directory: /Users/rjl/git/clawpack/classic/examples/advection_2d_annulus | |
Converted: Wed Dec 28 2016 at 22:29:31 using clawcode2html | |
This documentation file will not reflect any later changes in the source file. |
c c ===================================================== subroutine mapc2p(xc,yc,xp,yp) c ===================================================== c c # on input, (xc,yc) is a computational grid point c # on output, (xp,yp) is corresponding point in physical space c implicit double precision (a-h,o-z) c c # Polar coordinates, xc = r, yc = theta xp = xc * dcos(yc) yp = xc * dsin(yc) return end