Index: trunk/psLib/src/astronomy/psCoord.c
===================================================================
--- trunk/psLib/src/astronomy/psCoord.c	(revision 1615)
+++ trunk/psLib/src/astronomy/psCoord.c	(revision 2058)
@@ -10,6 +10,6 @@
 *  @author George Gusciora, MHPCC
 *
-*  @version $Revision: 1.20 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-08-25 01:38:30 $
+*  @version $Revision: 1.21 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-10-12 20:53:02 $
 *
 *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -32,14 +32,20 @@
 /******************************************************************************/
 
+#define PS_COT(X) (1.0 / atan(X))
+
+/******************************************************************************/
+/*  TYPE DEFINITIONS                                                          */
+/******************************************************************************/
+
 // None
 
-/******************************************************************************/
-/*  TYPE DEFINITIONS                                                          */
-/******************************************************************************/
+/*****************************************************************************/
+/*  GLOBAL VARIABLES                                                         */
+/*****************************************************************************/
 
 // None
 
 /*****************************************************************************/
-/*  GLOBAL VARIABLES                                                         */
+/*  FILE STATIC VARIABLES                                                    */
 /*****************************************************************************/
 
@@ -47,27 +53,14 @@
 
 /*****************************************************************************/
-/*  FILE STATIC VARIABLES                                                    */
-/*****************************************************************************/
-
-// None
-
-/*****************************************************************************/
 /*  FUNCTION IMPLEMENTATION - LOCAL                                          */
 /*****************************************************************************/
 
-static float p_psCot(float x);
 static float p_psArg(float x, float y);
 
 /******************************************************************************
-XXX: Do this with a macro.
- *****************************************************************************/
-float p_psCot(float x)
-{
-    return (1.0 / atan(x));
-}
-
-/******************************************************************************
 XXX: Verify this arc tan function.
- *****************************************************************************/
+XXX: macro
+ *****************************************************************************/
+
 float p_psArg(float x,
               float y)
@@ -240,5 +233,5 @@
 
     if (projection->type == PS_PROJ_TAN) {
-        R = p_psCot(coord->r) * (180.0 / M_PI);
+        R = PS_COT(coord->r) * (180.0 / M_PI);
         tmp->x = R * sin(coord->d);
         tmp->y = R * cos(coord->d);