source: trunk/fsxspp.pro @ 2

Last change on this file since 2 was 2, checked in by pinsard, 17 years ago

initial import from /usr/work/fvi/OPA/geomag/

File size: 218 bytes
Line 
1;
2;  fsnspp: north stereographic polar projection
3;
4FUNCTION fsxspp, plam, pphi
5;
6rpi = double( 2.*asin( 1. ))
7rad = double( rpi/180.)
8;
9z = double( 2. * cos( rad*plam ) * tan( rpi/4. - rad*pphi/2. ))
10;
11return, z
12END
Note: See TracBrowser for help on using the repository browser.