Index: trunk/psLib/test/astronomy/tst_psCoord.c
===================================================================
--- trunk/psLib/test/astronomy/tst_psCoord.c	(revision 2182)
+++ trunk/psLib/test/astronomy/tst_psCoord.c	(revision 2199)
@@ -6,6 +6,6 @@
 *  @author GLG, MHPCC
 *
-*  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-10-14 01:53:44 $
+*  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-10-26 21:57:32 $
 *
 *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -33,8 +33,8 @@
                               {test3, 0000, "psPlaneDistortApply()", 0, false},
                               {test4, 0000, "psPSphereTransformApply()", 0, false},
-                              {test5, 0000, "psSphereTransformICRStoEcliptic()", 0, false},
-                              {test6, 0000, "psSphereTransformEcliptictoICRS()", 0, false},
-                              {test7, 0000, "psSphereTransformICRStoGalatic()", 0, false},
-                              {test8, 0000, "psSphereTransformGalatictoICRS()", 0, false},
+                              {test5, 0000, "psSphereTransformICRSToEcliptic()", 0, false},
+                              {test6, 0000, "psSphereTransformEclipticToICRS()", 0, false},
+                              {test7, 0000, "psSphereTransformICRSToGalatic()", 0, false},
+                              {test8, 0000, "psSphereTransformGalaticToICRS()", 0, false},
                               {test20, 0000, "psProject()", 0, false},
                               {test21, 0000, "psDeProject()", 0, false},
@@ -76,10 +76,5 @@
               float y)
 {
-    if (y!= 0.0) {
-        return(atan(y/x));
-    } else {
-        return(0.5 * M_PI);
-    }
-    return (0.0);
+    return((float) atan2((double) x, (double) y));
 }
 
@@ -251,5 +246,5 @@
     double T = year / 100.0;
     double phi = -23.452294 + 0.013013 * T + 0.000001639 * T * T - 0.000000503 * T * T * T;
-    psSphereTransform *myST = psSphereTransformICRStoEcliptic(*now);
+    psSphereTransform *myST = psSphereTransformICRSToEcliptic(*now);
 
     if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
@@ -290,5 +285,5 @@
     double T = year / 100.0;
     double phi = +23.452294 - 0.013013 * T - 0.000001639 * T * T + 0.000000503 * T * T * T;
-    psSphereTransform *myST = psSphereTransformEcliptictoICRS(*now);
+    psSphereTransform *myST = psSphereTransformEclipticToICRS(*now);
 
     if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
@@ -326,5 +321,5 @@
     double Xo = 282.25;
     double xo = 33.0;
-    psSphereTransform *myST = psSphereTransformICRStoGalatic();
+    psSphereTransform *myST = psSphereTransformICRSToGalatic();
 
     if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
@@ -359,5 +354,5 @@
     double Xo = 33.0;
     double xo = 282.25;
-    psSphereTransform *myST = psSphereTransformGalatictoICRS();
+    psSphereTransform *myST = psSphereTransformGalaticToICRS();
 
     if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {