diff options
Diffstat (limited to 'src/3rdparty/proj/pj_phi2.c')
-rw-r--r-- | src/3rdparty/proj/pj_phi2.c | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/3rdparty/proj/pj_phi2.c b/src/3rdparty/proj/pj_phi2.c deleted file mode 100644 index 0900350e..00000000 --- a/src/3rdparty/proj/pj_phi2.c +++ /dev/null @@ -1,25 +0,0 @@ -/* determine latitude angle phi-2 */ -#include <projects.h> - -#define HALFPI 1.5707963267948966 -#define TOL 1.0e-10 -#define N_ITER 15 - - double -pj_phi2(double ts, double e) { - double eccnth, Phi, con, dphi; - int i; - - eccnth = .5 * e; - Phi = HALFPI - 2. * atan (ts); - i = N_ITER; - do { - con = e * sin (Phi); - dphi = HALFPI - 2. * atan (ts * pow((1. - con) / - (1. + con), eccnth)) - Phi; - Phi += dphi; - } while ( fabs(dphi) > TOL && --i); - if (i <= 0) - pj_errno = -18; - return Phi; -} |