Changeset 2551 in Sophya for trunk/SophyaExt/XephemAstroLib/vsop87.c

Timestamp:

Jun 15, 2004, 6:54:12 PM (21 years ago)

Author:

cmv

Message:

nouvelle version de xephem/libastro (3.6) cmv 15/6/04

File:

• trunk/SophyaExt/XephemAstroLib/vsop87.c (modified) (5 diffs)

trunk/SophyaExt/XephemAstroLib/vsop87.c

@@ -35 +35 @@
 
 #include <math.h>
-#include "P_.h"
+
 #include "astro.h"
 #include "vsop87.h"
@@ -51 +51 @@
  *    Input :
  *
- *    mjd      modified julian date, counted from J1900.0
+ *    mj       modified julian date, counted from J1900.0
  *             time scale : dynamical time TDB.
  *
@@ -98 +98 @@
  ******************************************************************/
 int
-vsop87 (mjd, obj, prec, ret)
-double mjd;
-int obj;
-double prec;
-double *ret;
+vsop87 (double mj, int obj, double prec, double *ret)
 {
     static double (*vx_map[])[3] = {            /* data tables */
@@ -134 +130 @@
     /* time and its powers */
     t[0] = 1.0;
-    t[1] = (mjd - J2000)/VSOP_A1000;
+    t[1] = (mj - J2000)/VSOP_A1000;
     for (i = 2; i <= VSOP_MAXALPHA; ++i) t[i] = t[i-1] * t[1];
     t_abs[0] = 1.0;
@@ -211 +207 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87.c,v $ $Date: 2001-10-22 12:08:28 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87.c,v $ $Date: 2004-06-15 16:52:41 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};