Changeset 8642

Timestamp:

Aug 27, 2006, 1:28:37 PM (20 years ago)

Author:

eugene

Message:

attempt to optimize

File:

• trunk/Ohana/src/addstar/src/airmass.c (modified) (2 diffs)

trunk/Ohana/src/addstar/src/airmass.c

@@ -10 +10 @@
 
   double hour, cosz, secz;
+  double rdec, rlat;
 
   if (!AirmassQuality) return (secz_image);
@@ -17 +18 @@
 
   /* hour : hour angle in degrees */
+  rdec = RAD_DEG*dec;
+  rlat = RAD_DEG*latitude;
   hour = 15.0*st - ra;
-  cosz = sin (RAD_DEG*dec) * sin (RAD_DEG*latitude) + cos (RAD_DEG*dec) * cos (RAD_DEG*hour) * cos (RAD_DEG*latitude);
+  cosz = sin (rdec) * sin (rlat) + cos (rdec) * cos (RAD_DEG*hour) * cos (rlat);
   secz = 1.000 / cosz;
   return (secz);