Changeset 3477 in Sophya for trunk/SophyaExt/XephemAstroLib/dbfmt.c

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

File:

• trunk/SophyaExt/XephemAstroLib/dbfmt.c (modified) (2 diffs)

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 $"};