Index: trunk/psLib/src/astronomy/slalib.h
===================================================================
--- trunk/psLib/src/astronomy/slalib.h	(revision 2052)
+++ trunk/psLib/src/astronomy/slalib.h	(revision 2061)
@@ -7,6 +7,6 @@
 *  @author Robert DeSonia, MHPCC
 *
-*  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2004-10-12 19:10:00 $
+*  @version $Revision: 1.9 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2004-10-12 21:10:41 $
 *
 *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -22,8 +22,10 @@
 #define fslaAopqk _SLA_AOPQK__
 #define fslaOapqk _SLA_OAPQK__
+#define fslaAirmas _SLA_AIRMAS__
 #else
 #define fslaAoppa _sla_aoppa__
 #define fslaAopqk _sla_aopqk__
 #define fslaOapqk _sla_oapqk__
+#define fslaAirmas _sla_airmas__
 #endif
 #elif FORTRAN_NO_UNDERSCORE_SUFFIX
@@ -32,8 +34,10 @@
 #define fslaAopqk _SLA_AOPQK
 #define fslaOapqk _SLA_OAPQK
+#define fslaAirmas _SLA_AIRMAS
 #else
 #define fslaAoppa _sla_aoppa
 #define fslaAopqk _sla_aopqk
 #define fslaOapqk _sla_oapqk
+#define fslaAirmas _sla_airmas
 #endif
 #else
@@ -42,8 +46,10 @@
 #define fslaAopqk _SLA_AOPQK_
 #define fslaOapqk _SLA_OAPQK_
+#define fslaAirmas _SLA_AIRMAS_
 #else
 #define fslaAoppa _sla_aoppa_
 #define fslaAopqk _sla_aopqk_
 #define fslaOapqk _sla_oapqk_
+#define fslaAirmas _sla_airmas_
 #endif
 #endif
@@ -54,8 +60,10 @@
 #define fslaAopqk SLA_AOPQK__
 #define fslaOapqk SLA_OAPQK__
+#define fslaAirmas SLA_AIRMAS__
 #else
 #define fslaAoppa sla_aoppa__
 #define fslaAopqk sla_aopqk__
 #define fslaOapqk sla_oapqk__
+#define fslaAirmas sla_airmas__
 #endif
 #elif FORTRAN_NO_UNDERSCORE_SUFFIX
@@ -64,8 +72,10 @@
 #define fslaAopqk SLA_AOPQK
 #define fslaOapqk SLA_OAPQK
+#define fslaAirmas SLA_AIRMAS
 #else
 #define fslaAoppa sla_aoppa
 #define fslaAopqk sla_aopqk
 #define fslaOapqk sla_oapqk
+#define fslaAirmas sla_airmas
 #endif
 #else
@@ -74,8 +84,10 @@
 #define fslaAopqk SLA_AOPQK_
 #define fslaOapqk SLA_OAPQK_
+#define fslaAirmas SLA_AIRMAS_
 #else
 #define fslaAoppa sla_aoppa_
 #define fslaAopqk sla_aopqk_
 #define fslaOapqk sla_oapqk_
+#define fslaAirmas sla_airmas_
 #endif
 #endif
@@ -118,4 +130,8 @@
     );
 
+extern double fslaAirmas(
+        const double* zenithDistance
+    );
+
 /*
     void slaAoppa(date, dut, elongm, phim, hm, xp, yp, tdk, pmb, rh, wl, tlr, aoprms)
@@ -174,3 +190,12 @@
 fslaOapqk(TYPE, &OB1, &OB2, AOPRMS, RAP, DAP)
 
-#endif
+/*
+    double slaAirmas(zd)
+    
+    PARAMETERS
+    
+    double zd
+*/
+#define slaAirmas(ZD) fslaAirmas(&ZD)
+
+#endif