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

Timestamp:

Aug 12, 2004, 3:14:26 PM (22 years ago)

Author:

desonia

Message:

added underscore prefix for fortran functions.

File:

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

trunk/psLib/src/astronomy/slalib.h

@@ -7 +7 @@
 *  @author Robert DeSonia, MHPCC
 *
-*  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-08-13 01:12:50 $
+*  @version $Revision: 1.6 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-08-13 01:14:26 $
 *
 *  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 slaAoppa _SLA_AOPPA__
+#define slaAopqk _SLA_AOPQK__
+#define slaOapqk _SLA_OAPQK__
 #else
-#define slaAoppa sla_aoppa__
-#define slaAopqk sla_aopqk__
-#define slaOapqk sla_oapqk__
+#define slaAoppa _sla_aoppa__
+#define slaAopqk _sla_aopqk__
+#define slaOapqk _sla_oapqk__
 #endif
 #elseif FORTRAN_NO_UNDERSCORE_SUFFIX
 #ifdef FORTRAN_UPPERCASE
-#define slaAoppa SLA_AOPPA
-#define slaAopqk SLA_AOPQK
-#define slaOapqk SLA_OAPQK
+#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
+#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_
+#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_
+#define slaAoppa _sla_aoppa_
+#define slaAopqk _sla_aopqk_
+#define slaOapqk _sla_oapqk_
 #endif
 #endif