Changeset 2052 for trunk/psLib/src/astronomy/slalib.h

Timestamp:

Oct 12, 2004, 9:10:00 AM (22 years ago)

Author:

desonia

Message:

fixed psGrommitAlloc, SLALIB calls, added tests for psFPAAlloc and psChipAlloc.

File:

• trunk/psLib/src/astronomy/slalib.h (modified) (3 diffs)

trunk/psLib/src/astronomy/slalib.h

@@ -7 +7 @@
 *  @author Robert DeSonia, MHPCC
 *
-*  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-08-26 21:11:55 $
+*  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-10-12 19:10:00 $
 *
 *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -19 +19 @@
 #ifdef FORTRAN_DOUBLE_UNDERSCORE_SUFFIX
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa _SLA_AOPPA__
-#define slaAopqk _SLA_AOPQK__
-#define slaOapqk _SLA_OAPQK__
+#define fslaAoppa _SLA_AOPPA__
+#define fslaAopqk _SLA_AOPQK__
+#define fslaOapqk _SLA_OAPQK__
 #else
-#define slaAoppa _sla_aoppa__
-#define slaAopqk _sla_aopqk__
-#define slaOapqk _sla_oapqk__
+#define fslaAoppa _sla_aoppa__
+#define fslaAopqk _sla_aopqk__
+#define fslaOapqk _sla_oapqk__
 #endif
 #elif FORTRAN_NO_UNDERSCORE_SUFFIX
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa _SLA_AOPPA
-#define slaAopqk _SLA_AOPQK
-#define slaOapqk _SLA_OAPQK
+#define fslaAoppa _SLA_AOPPA
+#define fslaAopqk _SLA_AOPQK
+#define fslaOapqk _SLA_OAPQK
 #else
-#define slaAoppa _sla_aoppa
-#define slaAopqk _sla_aopqk
-#define slaOapqk _sla_oapqk
+#define fslaAoppa _sla_aoppa
+#define fslaAopqk _sla_aopqk
+#define fslaOapqk _sla_oapqk
 #endif
 #else
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa _SLA_AOPPA_
-#define slaAopqk _SLA_AOPQK_
-#define slaOapqk _SLA_OAPQK_
+#define fslaAoppa _SLA_AOPPA_
+#define fslaAopqk _SLA_AOPQK_
+#define fslaOapqk _SLA_OAPQK_
 #else
-#define slaAoppa _sla_aoppa_
-#define slaAopqk _sla_aopqk_
-#define slaOapqk _sla_oapqk_
+#define fslaAoppa _sla_aoppa_
+#define fslaAopqk _sla_aopqk_
+#define fslaOapqk _sla_oapqk_
 #endif
 #endif
@@ -51 +51 @@
 #ifdef FORTRAN_DOUBLE_UNDERSCORE_SUFFIX
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa SLA_AOPPA__
-#define slaAopqk SLA_AOPQK__
-#define slaOapqk SLA_OAPQK__
+#define fslaAoppa SLA_AOPPA__
+#define fslaAopqk SLA_AOPQK__
+#define fslaOapqk SLA_OAPQK__
 #else
-#define slaAoppa sla_aoppa__
-#define slaAopqk sla_aopqk__
-#define slaOapqk sla_oapqk__
+#define fslaAoppa sla_aoppa__
+#define fslaAopqk sla_aopqk__
+#define fslaOapqk sla_oapqk__
 #endif
 #elif FORTRAN_NO_UNDERSCORE_SUFFIX
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa SLA_AOPPA
-#define slaAopqk SLA_AOPQK
-#define slaOapqk SLA_OAPQK
+#define fslaAoppa SLA_AOPPA
+#define fslaAopqk SLA_AOPQK
+#define fslaOapqk SLA_OAPQK
 #else
-#define slaAoppa sla_aoppa
-#define slaAopqk sla_aopqk
-#define slaOapqk sla_oapqk
+#define fslaAoppa sla_aoppa
+#define fslaAopqk sla_aopqk
+#define fslaOapqk sla_oapqk
 #endif
 #else
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa SLA_AOPPA_
-#define slaAopqk SLA_AOPQK_
-#define slaOapqk SLA_OAPQK_
+#define fslaAoppa SLA_AOPPA_
+#define fslaAopqk SLA_AOPQK_
+#define fslaOapqk SLA_OAPQK_
 #else
-#define slaAoppa sla_aoppa_
-#define slaAopqk sla_aopqk_
-#define slaOapqk sla_oapqk_
+#define fslaAoppa sla_aoppa_
+#define fslaAopqk sla_aopqk_
+#define fslaOapqk sla_oapqk_
 #endif
 #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 fslaAoppa(
+        const double* date,
+        const double* dut,
+        const double* elongm,
+        const double* phim,
+        const double* him,
+        const double* xp,
+        const double* yp,
+        const double* tdk,
+        const double* pmb,
+        const double* rh,
+        const double* wl,
+        const 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 fslaAopqk(
+        const double* RAP,
+        const 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
+extern void fslaOapqk(
+        char* TYPE,
+        const double* OB1,
+        const double* OB2,
+        double* AOPRMS,
+        double* RAP,
+        double* DAP
     );
 
+/*
+    void slaAoppa(date, dut, elongm, phim, hm, xp, yp, tdk, pmb, rh, wl, tlr, aoprms)
+    
+    PARAMETERS
+    
+    double date
+    double dut
+    double elongm
+    double phim
+    double hm
+    double xp
+    double yp
+    double tdk
+    double pmb
+    double rh
+    double wl
+    double tlr
+    double *aoprms
+*/
+#define slaAoppa(date,dut,elongm,phim,him,xp,yp,tdk,pmb,rh,wl,tlr,AOPRMS) \
+fslaAoppa(&date,&dut,&elongm,&phim,&him,&xp,&yp,&tdk,&pmb,&rh,&wl,&tlr,AOPRMS)
+
+/*
+    void slaAopqk(rap, dap, aoprms, aob, zob, hob, dob, rob)
+    
+    PARAMETERS
+    
+    double rap
+    double dap
+    double *aoprms
+    double *aob
+    double *zob
+    double *hob
+    double *dob
+    double *rob
+*/
+
+#define slaAopqk(RAP,DAP,AOPRMS,AOB,ZOB,HOB,DOB,ROB) \
+fslaAopqk(&RAP,&DAP,AOPRMS,AOB,ZOB,HOB,DOB,ROB)
+
+/*
+    void slaOapqk(type, ob1, ob2, aoprms, rap, dap)
+    
+    PARAMETERS
+    
+    char *type
+    double ob1
+    double ob2
+    double *aoprms
+    double *rap
+    double *dap
+*/
+
+#define slaOapqk(TYPE, OB1, OB2, AOPRMS, RAP, DAP) \
+fslaOapqk(TYPE, &OB1, &OB2, AOPRMS, RAP, DAP)
+
 #endif