Index: /trunk/psLib/src/astronomy/psAstrometry.c
===================================================================
--- /trunk/psLib/src/astronomy/psAstrometry.c	(revision 1518)
+++ /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);
Index: /trunk/psLib/src/astronomy/slalib.h
===================================================================
--- /trunk/psLib/src/astronomy/slalib.h	(revision 1519)
+++ /trunk/psLib/src/astronomy/slalib.h	(revision 1519)
@@ -0,0 +1,76 @@
+/** @file  slalib.h
+*
+*  @brief Simple wrapper of the required fortran SLALIB functions
+*
+*  @ingroup AstroImage
+*
+*  @author Robert DeSonia, MHPCC
+*
+*  @version $Revision: 1.1 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-08-13 00:01:57 $
+*
+*  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
+*/
+
+#ifndef SLALIB_H
+#define SLALIB_H
+
+#ifdef FORTRAN_UNDERLINE_SUFFIX
+#ifdef FORTRAN_UPPERCASE
+#define slaAoppa SLA_AOPPA_
+#define slaAopqk SLA_AOPQK_
+#define slaOapqk SLA_OAPQK_
+#else
+#define slaAoppa sla_aoppa_
+#define slaAopqk sla_aopqk_
+#define slaOapqk sla_oapqk_
+#endif
+#else
+#ifdef FORTRAN_UPPERCASE
+#define slaAoppa SLA_AOPPA
+#define slaAopqk SLA_AOPQK
+#define slaOapqk SLA_OAPQK
+#else
+#define slaAoppa sla_aoppa
+#define slaAopqk sla_aopqk
+#define slaOapqk sla_oapqk
+#endif
+#endif
+
+extern void slaAoppa (
+        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
+    );
+
+extern void slaAopqk (
+        double RAP,
+        double DAP,
+        double *AOPRMS,
+        double *AOB,
+        double *ZOB,
+        double *HOB,
+        double *DOB,
+        double *ROB
+    );
+
+extern void slaOapqk (
+        char *TYPE,
+        double OB1,
+        double OB2,
+        double *AOPRMS,
+        double *RAP,
+        double *DAP
+    );
+
+#endif