Changeset 3477 in Sophya for trunk/SophyaExt/XephemAstroLib

Timestamp:

Mar 25, 2008, 6:45:21 PM (18 years ago)

Author:

cmv

Message:

mise a jour Xephem 3.7.3 , cmv 25/03/2008

Location:

trunk/SophyaExt/XephemAstroLib

Files:

• aa_hadec.c (modified) (1 diff)
• aberration.c (modified) (1 diff)
• actan.c (modified) (2 diffs)
• airmass.c (modified) (1 diff)
• anomaly.c (modified) (1 diff)
• ap_as.c (modified) (1 diff)
• astro.h (modified) (2 diffs)
• atlas.c (modified) (1 diff)
• auxil.c (modified) (1 diff)
• bdl.c (modified) (1 diff)
• bdl.h (modified) (1 diff)
• chap95.c (modified) (1 diff)
• chap95.h (modified) (1 diff)
• chap95_data.c (modified) (1 diff)
• circum.c (modified) (1 diff)
• comet.c (modified) (1 diff)
• constel.c (modified) (1 diff)
• dbfmt.c (modified) (2 diffs)
• deep.c (modified) (1 diff)
• deepconst.h (modified) (2 diffs)
• deltat.c (modified) (1 diff)
• earthsat.c (modified) (2 diffs)
• eq_ecl.c (modified) (1 diff)
• eq_gal.c (modified) (1 diff)
• formats.c (modified) (1 diff)
• helio.c (modified) (1 diff)
• jupmoon.c (modified) (1 diff)
• libration.c (modified) (1 diff)
• magdecl.c (modified) (1 diff)
• marsmoon.c (modified) (1 diff)
• misc.c (modified) (1 diff)
• mjd.c (modified) (1 diff)
• moon.c (modified) (1 diff)
• mooncolong.c (modified) (1 diff)
• moonnf.c (modified) (1 diff)
• nutation.c (modified) (1 diff)
• obliq.c (modified) (1 diff)
• parallactic.c (modified) (1 diff)
• parallax.c (modified) (1 diff)
• plans.c (modified) (1 diff)
• plshadow.c (modified) (1 diff)
• precess.c (modified) (1 diff)
• preferences.h (modified) (1 diff)
• reduce.c (modified) (1 diff)
• refract.c (modified) (1 diff)
• rings.c (modified) (1 diff)
• riset.c (modified) (1 diff)
• riset_cir.c (modified) (7 diffs)
• satlib.h (modified) (2 diffs)
• satmoon.c (modified) (2 diffs)
• satspec.h (modified) (2 diffs)
• sattypes.h (modified) (2 diffs)
• sdp4.c (modified) (1 diff)
• sgp4.c (modified) (1 diff)
• sphcart.c (modified) (1 diff)
• sun.c (modified) (1 diff)
• thetag.c (modified) (2 diffs)
• twobody.c (modified) (1 diff)
• umoon.c (modified) (1 diff)
• utc_gst.c (modified) (1 diff)
• vector.h (modified) (2 diffs)
• vsop87.c (modified) (1 diff)
• vsop87.h (modified) (1 diff)
• vsop87_data.c (modified) (1 diff)

trunk/SophyaExt/XephemAstroLib/aa_hadec.c

@@ -75 +75 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: aa_hadec.c,v $ $Date: 2006-11-22 13:53:27 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: aa_hadec.c,v $ $Date: 2008-03-25 17:45:08 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/aberration.c

@@ -159 +159 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: aberration.c,v $ $Date: 2006-11-22 13:53:27 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: aberration.c,v $ $Date: 2008-03-25 17:45:08 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/actan.c

@@ -1 +1 @@
 #include <math.h>
 
-/* @(#) $Id: actan.c,v 1.6 2006-11-22 13:53:27 cmv Exp $ */
+/* @(#) $Id: actan.c,v 1.7 2008-03-25 17:45:08 cmv Exp $ */
 
 /* commonly in math.h, but not in strict ANSI C */
@@ -65 +65 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: actan.c,v $ $Date: 2006-11-22 13:53:27 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: actan.c,v $ $Date: 2008-03-25 17:45:08 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/airmass.c

@@ -24 +24 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: airmass.c,v $ $Date: 2006-11-22 13:53:27 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: airmass.c,v $ $Date: 2008-03-25 17:45:09 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/anomaly.c

@@ -61 +61 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: anomaly.c,v $ $Date: 2006-11-22 13:53:27 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: anomaly.c,v $ $Date: 2008-03-25 17:45:09 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/ap_as.c

@@ -66 +66 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: ap_as.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: ap_as.c,v $ $Date: 2008-03-25 17:45:09 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/astro.h

@@ -18 +18 @@
 /* ratio of from synodic (solar) to sidereal (stellar) rate */
 #define SIDRATE         .9972695677
-
-#define SPD     (24.0*3600.0)   /* seconds per day */
 
 /* manifest names for planets.
@@ -810 +808 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: astro.h,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: astro.h,v $ $Date: 2008-03-25 17:45:09 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/atlas.c

@@ -194 +194 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: atlas.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: atlas.c,v $ $Date: 2008-03-25 17:45:09 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/auxil.c

@@ -40 +40 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: auxil.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: auxil.c,v $ $Date: 2008-03-25 17:45:10 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/bdl.c

@@ -232 +232 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: bdl.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: bdl.c,v $ $Date: 2008-03-25 17:45:11 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/bdl.h

@@ -3 +3 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: bdl.h,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: bdl.h,v $ $Date: 2008-03-25 17:45:11 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/chap95.c

@@ -172 +172 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: chap95.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: chap95.c,v $ $Date: 2008-03-25 17:45:11 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/chap95.h

@@ -65 +65 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: chap95.h,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: chap95.h,v $ $Date: 2008-03-25 17:45:11 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/chap95_data.c

@@ -781 +781 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: chap95_data.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: chap95_data.c,v $ $Date: 2008-03-25 17:45:11 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/circum.c

@@ -861 +861 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: circum.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: circum.c,v $ $Date: 2008-03-25 17:45:12 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/comet.c

@@ -81 +81 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: comet.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: comet.c,v $ $Date: 2008-03-25 17:45:12 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/constel.c

@@ -1801 +1801 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: constel.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: constel.c,v $ $Date: 2008-03-25 17:45:12 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/dbfmt.c

@@ -929 +929 @@
 write_E (Obj *op, char lp[])
 {
+        double d;
+        int m, y;
+
         lp += sprintf (lp, "%s,E", op->o_name);
         *lp++ = ',';
-        lp += fs_date (lp, PREF_MDY, op->es_epoch);
+        mjd_cal (op->es_epoch, &m, &d, &y); /* need more day prec than fs_date*/
+        lp += sprintf (lp, "%d/%.12g/%d", m, d, y);
         lp += get_okdates (lp, &op->es_startok, &op->es_endok);
-        lp += sprintf (lp, ",%.7g", op->es_inc);
-        lp += sprintf (lp, ",%.7g", op->es_raan);
-        lp += sprintf (lp, ",%.7g", op->es_e);
-        lp += sprintf (lp, ",%.7g", op->es_ap);
-        lp += sprintf (lp, ",%.7g", op->es_M);
-        lp += sprintf (lp, ",%.7g", op->es_n);
-        lp += sprintf (lp, ",%.7g", op->es_decay);
+        lp += sprintf (lp, ",%.8g", op->es_inc);
+        lp += sprintf (lp, ",%.8g", op->es_raan);
+        lp += sprintf (lp, ",%.8g", op->es_e);
+        lp += sprintf (lp, ",%.8g", op->es_ap);
+        lp += sprintf (lp, ",%.8g", op->es_M);
+        lp += sprintf (lp, ",%.12g", op->es_n);         /* double */
+        lp += sprintf (lp, ",%.8g", op->es_decay);
         lp += sprintf (lp, ",%d", op->es_orbit);
-        lp += sprintf (lp, ",%.7g", op->es_drag);
+        lp += sprintf (lp, ",%.8g", op->es_drag);
 }
 
@@ -996 +1000 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: dbfmt.c,v $ $Date: 2006-11-22 13:53:28 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: dbfmt.c,v $ $Date: 2008-03-25 17:45:12 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/deep.c

@@ -788 +788 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: deep.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: deep.c,v $ $Date: 2008-03-25 17:45:13 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/deepconst.h

@@ -2 +2 @@
 #define _CONST_H
 
-/* $Id: deepconst.h,v 1.6 2006-11-22 13:53:29 cmv Exp $ */
+/* $Id: deepconst.h,v 1.7 2008-03-25 17:45:13 cmv Exp $ */
 
 
@@ -31 +31 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: deepconst.h,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: deepconst.h,v $ $Date: 2008-03-25 17:45:13 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/deltat.c

@@ -303 +303 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: deltat.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: deltat.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/earthsat.c

@@ -237 +237 @@
         if (pref_get(PREF_EQUATORIAL) == PREF_TOPO) {
             double ha, lst;
-            aa_hadec (lat, (double)op->s_alt, (double)op->s_az, &ha, &dec);
+            aa_hadec (lat, Elevation, (double)op->s_az, &ha, &dec);
             now_lst (np, &lst);
             ra = hrrad(lst) - ha;
@@ -784 +784 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: earthsat.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: earthsat.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/eq_ecl.c

@@ -70 +70 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: eq_ecl.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: eq_ecl.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/eq_gal.c

@@ -97 +97 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: eq_gal.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: eq_gal.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/formats.c

@@ -210 +210 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: formats.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: formats.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/helio.c

@@ -49 +49 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: helio.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: helio.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/jupmoon.c

@@ -389 +389 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: jupmoon.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: jupmoon.c,v $ $Date: 2008-03-25 17:45:14 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/libration.c

@@ -2216 +2216 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: libration.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: libration.c,v $ $Date: 2008-03-25 17:45:15 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/magdecl.c

@@ -379 +379 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: magdecl.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: magdecl.c,v $ $Date: 2008-03-25 17:45:15 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/marsmoon.c

@@ -263 +263 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: marsmoon.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: marsmoon.c,v $ $Date: 2008-03-25 17:45:15 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/misc.c

@@ -501 +501 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: misc.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: misc.c,v $ $Date: 2008-03-25 17:45:15 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/mjd.c

@@ -254 +254 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: mjd.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: mjd.c,v $ $Date: 2008-03-25 17:45:15 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/moon.c

@@ -3465 +3465 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: moon.c,v $ $Date: 2006-11-22 13:53:29 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: moon.c,v $ $Date: 2008-03-25 17:45:16 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/mooncolong.c

@@ -234 +234 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: mooncolong.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: mooncolong.c,v $ $Date: 2008-03-25 17:45:16 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/moonnf.c

@@ -67 +67 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: moonnf.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: moonnf.c,v $ $Date: 2008-03-25 17:45:16 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/nutation.c

@@ -439 +439 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: nutation.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: nutation.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/obliq.c

@@ -25 +25 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: obliq.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: obliq.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/parallactic.c

@@ -52 +52 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: parallactic.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: parallactic.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/parallax.c

@@ -40 +40 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: parallax.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: parallax.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/plans.c

@@ -225 +225 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: plans.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: plans.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/plshadow.c

@@ -48 +48 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: plshadow.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: plshadow.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/precess.c

@@ -144 +144 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: precess.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: precess.c,v $ $Date: 2008-03-25 17:45:17 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/preferences.h

@@ -29 +29 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: preferences.h,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: preferences.h,v $ $Date: 2008-03-25 17:45:18 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/reduce.c

@@ -76 +76 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: reduce.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: reduce.c,v $ $Date: 2008-03-25 17:45:18 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/refract.c

@@ -89 +89 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2008-03-25 17:45:18 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/rings.c

@@ -43 +43 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: rings.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: rings.c,v $ $Date: 2008-03-25 17:45:18 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/riset.c

@@ -98 +98 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: riset.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: riset.c,v $ $Date: 2008-03-25 17:45:18 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/riset_cir.c

@@ -84 +84 @@
             rp->rs_flags |= RS_RISERR;
             break;
-        case -2: /* converged but not today */ /* FALLTHRU */
+        case -2: /* converged but not today, err but give times anyway */
+            rp->rs_risetm = n.n_mjd;
+            rp->rs_riseaz = o.s_az;
+            rp->rs_flags |= RS_NORISE;
+            break;
         case -3: /* probably never up */
-            rp->rs_flags |= RS_NORISE;
+            rp->rs_flags |= RS_NEVERUP;
             break;
         }
@@ -100 +104 @@
             rp->rs_flags |= RS_SETERR;
             break;
-        case -2: /* converged but not today */ /* FALLTHRU */
+        case -2: /* converged but not today, err but give times anyway */
+            rp->rs_settm = n.n_mjd;
+            rp->rs_setaz = o.s_az;
+            rp->rs_flags |= RS_NOSET;
+            break;
         case -3: /* probably circumpolar */
-            rp->rs_flags |= RS_NOSET;
+            rp->rs_flags |= RS_CIRCUMPOLAR;
             break;
         }
@@ -220 +228 @@
 
         /* instead of transit, for satellites we find time of maximum
-         * altitude, if we know both the rise and set times and the former
-         * occurs before the latter.
+         * altitude, if we know both the rise and set times.
          */
-        if (rise && set && rp->rs_risetm < rp->rs_settm) {
+        if (rise && set) {
             double tt, al;
             if (find_max (np, op, rp->rs_risetm, rp->rs_settm, &tt, &al) < 0) {
@@ -266 +273 @@
 #define MAXPASSES       20              /* max iterations to try */
 #define FIRSTSTEP       (1.0/60.0/24.0) /* first time step, days */
+#define MAXSTEP         (1.0/24.0)/* max time step,days (to detect flat)*/
 
         double a0 = 0;
@@ -295 +303 @@
             a0 = a1;
 
-        } while (++npasses < MAXPASSES && fabs(dt) > TMACC);
+            if (++npasses > MAXPASSES || fabs(dt) >= MAXSTEP)
+                return (-3);
+
+        } while (fabs(dt)>TMACC);
 
         /* return codes */
-        if (npasses == MAXPASSES)
-            return (-3);
         return (fabs(mjdn-mjd) < .5 ? 0 : -2);
 
 #undef  MAXPASSES
 #undef  FIRSTSTEP
+#undef  MAXSTEP
 }
 
@@ -361 +371 @@
 double *tp, double *alp)        /* time of max altitude, and that altitude */
 {
+        /* want rise before set */
+        while (ts < tr)
+            tr -= 1.0/op->es_n;
         mjd = (ts + tr)/2;
         if (obj_cir (np, op) < 0)
@@ -370 +383 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: riset_cir.c,v $ $Date: 2006-11-22 13:53:30 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: riset_cir.c,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/satlib.h

@@ -2 +2 @@
 #define __SATLIB_H
 
-/* $Id: satlib.h,v 1.6 2006-11-22 13:53:31 cmv Exp $ */
+/* $Id: satlib.h,v 1.7 2008-03-25 17:45:19 cmv Exp $ */
 
 typedef struct _SatElem {
@@ -203 +203 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: satlib.h,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: satlib.h,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/satmoon.c

@@ -101 +101 @@
 
         /* get moon x,y,z from BDL if possible, else Bruton's model */
-        if (dir && use_bdl (JD, dir, md) < 0)
+        if (!dir || use_bdl (JD, dir, md) < 0)
             bruton_saturn (sop, JD, md);
 
@@ -508 +508 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: satmoon.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: satmoon.c,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/satspec.h

@@ -2 +2 @@
 #define __SATSPEC_H
 
-/* $Id: satspec.h,v 1.6 2006-11-22 13:53:31 cmv Exp $ */
+/* $Id: satspec.h,v 1.7 2008-03-25 17:45:19 cmv Exp $ */
 
 #include "sattypes.h"
@@ -40 +40 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: satspec.h,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: satspec.h,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/sattypes.h

@@ -2 +2 @@
 #define __SATTYPES_H
 
-/* $Id: sattypes.h,v 1.6 2006-11-22 13:53:31 cmv Exp $ */
+/* $Id: sattypes.h,v 1.7 2008-03-25 17:45:19 cmv Exp $ */
 
 typedef struct _Vec3 {
@@ -25 +25 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: sattypes.h,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: sattypes.h,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/sdp4.c

@@ -428 +428 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sdp4.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sdp4.c,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/sgp4.c

@@ -399 +399 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sgp4.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sgp4.c,v $ $Date: 2008-03-25 17:45:19 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/sphcart.c

@@ -41 +41 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sphcart.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sphcart.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/sun.c

@@ -42 +42 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sun.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sun.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/thetag.c

@@ -3 +3 @@
 #include "deepconst.h"
 
-/* @(#) $Id: thetag.c,v 1.6 2006-11-22 13:53:31 cmv Exp $ */
+/* @(#) $Id: thetag.c,v 1.7 2008-03-25 17:45:20 cmv Exp $ */
 
 
@@ -88 +88 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: thetag.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: thetag.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/twobody.c

@@ -241 +241 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: twobody.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: twobody.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/umoon.c

@@ -268 +268 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: umoon.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: umoon.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/utc_gst.c

@@ -93 +93 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: utc_gst.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: utc_gst.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/vector.h

@@ -2 +2 @@
 #define __SATVECTOR_H
 
-/* $Id: vector.h,v 1.6 2006-11-22 13:53:31 cmv Exp $ */
+/* $Id: vector.h,v 1.7 2008-03-25 17:45:20 cmv Exp $ */
 
 #define dotp(A,B) ((A).x*(B).x+(A).y*(B).y+(A).z*(B).z)
@@ -16 +16 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: vector.h,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: vector.h,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/vsop87.c

@@ -207 +207 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87.c,v $ $Date: 2008-03-25 17:45:20 $ $Revision: 1.8 $ $Name: not supported by cvs2svn $"};

trunk/SophyaExt/XephemAstroLib/vsop87.h

@@ -90 +90 @@
 
 /* For RCS Only -- Do Not Edit
- * @(#) $RCSfile: vsop87.h,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ * @(#) $RCSfile: vsop87.h,v $ $Date: 2008-03-25 17:45:21 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $
  */

trunk/SophyaExt/XephemAstroLib/vsop87_data.c

@@ -6986 +6986 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87_data.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87_data.c,v $ $Date: 2008-03-25 17:45:21 $ $Revision: 1.7 $ $Name: not supported by cvs2svn $"};