diff options
Diffstat (limited to '')
-rw-r--r-- | libtellurian_meridan_radius_radians.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/libtellurian_meridan_radius_radians.c b/libtellurian_meridan_radius_radians.c deleted file mode 100644 index 0a832e5..0000000 --- a/libtellurian_meridan_radius_radians.c +++ /dev/null @@ -1,14 +0,0 @@ -/* See LICENSE file for copyright and license details. */ -#include "common.h" - - -double -libtellurian_meridan_radius_radians(double latitude) -{ - double a = LIBTELLURIAN_EQUATORIAL_RADIUS; - double b = LIBTELLURIAN_POLAR_RADIUS; - double f = 1.0 - b / a; - double neg_e2 = (f - 2.0) * f; - double s = sin(latitude); - return fma(a, neg_e2, a) / pow(fma(neg_e2, s * s, 1.0), 1.5); -} |