mapc2p.f.html | ![]() |
Source file: mapc2p.f | |
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.3/book/chap23/acoustics | |
Converted: Mon Jan 21 2013 at 20:15:41 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 # radial coordinates, xc = r, yc = theta c c xp = xc + (yc+1.d0)/2.d0 xp = xc + (dabs(yc+.2d0)+ .8d0)/2d0 yp = yc c return end