Changeset 1524

Timestamp:

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

Author:

desonia

Message:

added underscore prefix support for OS X.

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.4 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-08-13 00:46:18 $
+*  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-08-13 01:12:50 $
 *
 *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -16 +16 @@
 #define SLALIB_H
 
+#ifdef FORTRAN_UNDERSCORE_PREFIX
 #ifdef FORTRAN_DOUBLE_UNDERSCORE_SUFFIX
 #ifdef FORTRAN_UPPERCASE
@@ -47 +48 @@
 #endif
 #endif
-
+#else
+#ifdef FORTRAN_DOUBLE_UNDERSCORE_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
+#elseif FORTRAN_NO_UNDERSCORE_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
+#endif
 extern void slaAoppa (
         double date,