Index: trunk/psLib/src/astronomy/psAstrometry.c
===================================================================
--- trunk/psLib/src/astronomy/psAstrometry.c	(revision 1515)
+++ trunk/psLib/src/astronomy/psAstrometry.c	(revision 1519)
@@ -8,6 +8,6 @@
 *  @author George Gusciora, MHPCC
 *
-*  @version $Revision: 1.22 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-08-12 06:42:42 $
+*  @version $Revision: 1.23 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-08-13 00:01:57 $
 *
 *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -20,4 +20,5 @@
 #include "psMemory.h"
 #include "psAbort.h"
+#include "slalib.h"
 
 psExposure* psExposureAlloc(double ra, double dec, double hourAngle,
@@ -43,10 +44,4 @@
     return exp;
 }
-
-extern void sla_aoppa(double date, double dut, double elongm,
-                          double phim, double him, double xp,
-                          double yp, double tdk, double pmb,
-                          double rh, double wl, double tlr,
-                          double *AOPRMS);
 #define TBD 0.0
 /*****************************************************************************
@@ -75,6 +70,6 @@
     double *AOPRMS = NULL;
 
-    sla_aoppa(date, dut, elongm, phim, hm, xp, yp,
-              tdk, pmb, rh, wl, tlr, AOPRMS);
+    slaAoppa(date, dut, elongm, phim, hm, xp, yp,
+             tdk, pmb, rh, wl, tlr, AOPRMS);
 
     psGrommit* grommit = (psGrommit* ) psAlloc(sizeof(psGrommit));
@@ -285,7 +280,4 @@
 }
 
-extern void sla_AOPQK(double RAP, double DAP, double *AOPRMS,
-                          double *AOB, double *ZOB, double *HOB, double *DOB,
-                          double *ROB);
 /*****************************************************************************
 XXX: What about units for the (x,y) coords?
@@ -309,6 +301,6 @@
     }
 
-    sla_AOPQK(tpCoord->x, tpCoord->y, (double *) grommit,
-              &AOB, &ZOB, &HOB, &outSphere->r, &outSphere->d);
+    slaAopqk(tpCoord->x, tpCoord->y, (double *) grommit,
+             &AOB, &ZOB, &HOB, &outSphere->r, &outSphere->d);
 
     return (outSphere);
@@ -408,6 +400,4 @@
 }
 
-extern void sla_OAPQK(char *TYPE, double OB1, double OB2,
-                          double *AOPRMS, double *RAP, double *DAP);
 /*****************************************************************************
 XXX: What about units for the (x,y) coords?
@@ -427,5 +417,5 @@
     }
 
-    sla_OAPQK("RA", in->r, in->d, (double *) grommit, &tpCoord->x, &tpCoord->y);
+    slaOapqk("RA", in->r, in->d, (double *) grommit, &tpCoord->x, &tpCoord->y);
 
     return(tpCoord);