Changeset 1519

Timestamp:

Aug 12, 2004, 2:01:57 PM (22 years ago)

Author:

desonia

Message:

pulled out the slalib.h externs to a separate include file.

Location:

trunk/psLib/src/astronomy

Files:

• psAstrometry.c (modified) (8 diffs)
• slalib.h (added)

trunk/psLib/src/astronomy/psAstrometry.c

@@ -8 +8 @@
 *  @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 +20 @@
 #include "psMemory.h"
 #include "psAbort.h"
+#include "slalib.h"
 
 psExposure* psExposureAlloc(double ra, double dec, double hourAngle,
@@ -43 +44 @@
     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 +70 @@
     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 +280 @@
 }
 
-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 +301 @@
     }
 
-    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 +400 @@
 }
 
-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 +417 @@
     }
 
-    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);