Changeset 5514 for trunk/psLib/test/astro/tst_psSphereOps.c

Timestamp:

Nov 14, 2005, 2:04:30 PM (21 years ago)

Author:

drobbin

Message:

fixed pole test (x, 90) for ecliptic trans. (was only failing on server)

File:

• trunk/psLib/test/astro/tst_psSphereOps.c (modified) (2 diffs)

trunk/psLib/test/astro/tst_psSphereOps.c

@@ -5 +5 @@
 *  @author d-Rob, MHPCC
 *
-*  @version $Revision: 1.12 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-11-02 01:07:25 $
+*  @version $Revision: 1.13 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-11-15 00:04:30 $
 *
 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -247 +247 @@
             return 1;
         }
-        if (fabs(RAD_TO_DEG(icrsFromEcliptic->r) - alpha[x]) > TOLERANCE ||
+        if ( (fabs(RAD_TO_DEG(icrsFromEcliptic->r) - alpha[x]) > TOLERANCE &&
+                fabs(RAD_TO_DEG(icrsFromEcliptic->d) - 90.0) > TOLERANCE ) ||
                 fabs(RAD_TO_DEG(icrsFromEcliptic->d) - delta[x]) > TOLERANCE) {
             psError(PS_ERR_UNKNOWN, false,