Index: /trunk/psLib/src/astronomy/psAstrometry.c
===================================================================
--- /trunk/psLib/src/astronomy/psAstrometry.c	(revision 2060)
+++ /trunk/psLib/src/astronomy/psAstrometry.c	(revision 2061)
@@ -8,6 +8,6 @@
  *  @author George Gusciora, MHPCC
  *
- *  @version $Revision: 1.35 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-10-12 20:53:02 $
+ *  @version $Revision: 1.36 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-10-12 21:10:41 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -312,7 +312,7 @@
     // XXX: how is these value derived?
     *(double *)&exp->lst = psTimeToLST((psTime*)time,observatory->longitude);
-    *(float *)&exp->positionAngle = 0.0f;
-    *(float *)&exp->parallacticAngle = 0.0f;
-    *(float *)&exp->airmass = 0.0f;
+    *(float *)&exp->positionAngle = 0.0f; // XXX: need input, see Bug #207
+    *(float *)&exp->parallacticAngle = 0.0f; // XXX: need input, see Bug #207
+    *(float *)&exp->airmass = slaAirmas(zenithDistance);
     *(float *)&exp->parallacticFactor = 0.0f;
     exp->cameraName = NULL;
Index: /trunk/psLib/src/astronomy/slalib.h
===================================================================
--- /trunk/psLib/src/astronomy/slalib.h	(revision 2060)
+++ /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