From 565a4bd035b9d4a83955808efef20f1d8dfa24cf Mon Sep 17 00:00:00 2001
From: Frank Warmerdam <warmerdam@pobox.com>
Date: Thu, 18 Mar 1999 16:34:52 +0000
Subject: New

git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@776 4e78687f-474d-0410-85f9-8d5e500ac6b2
---
 src/adjlon.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/adjlon.c

(limited to 'src/adjlon.c')

diff --git a/src/adjlon.c b/src/adjlon.c
new file mode 100644
index 00000000..3de12a16
--- /dev/null
+++ b/src/adjlon.c
@@ -0,0 +1,16 @@
+/* reduce argument to range +/- PI */
+#ifndef lint
+static const char SCCSID[]="@(#)adjlon.c	4.3	93/06/12	GIE	REL";
+#endif
+#include <math.h>
+/* note: PI adjusted high
+** approx. true val:	3.14159265358979323844
+*/
+#define SPI		3.14159265359
+#define TWOPI	6.2831853071795864769
+	double
+adjlon (double lon) {
+	while ( fabs(lon) > SPI )
+		lon += lon < 0. ? TWOPI : -TWOPI;
+	return( lon );
+}
-- 
cgit v1.2.3