Changeset 2551 in Sophya for trunk/SophyaExt/XephemAstroLib/chap95.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/chap95.c (modified) (6 diffs)

trunk/SophyaExt/XephemAstroLib/chap95.c

@@ -19 +19 @@
 
 #include <math.h>
-#include "P_.h"
+
 #include "astro.h"
 #include "chap95.h"
-
-extern void zero_mem P_((void *loc, unsigned len));
 
 #define CHAP_MAXTPOW    2       /* NB: valid for all 5 outer planets */
@@ -30 +28 @@
  *
  * input:
- *      mjd     modified JD; days from J1900.0 = 2415020.0
+ *      m       modified JD; days from J1900.0 = 2415020.0
  *
  *      prec    precision level, in radians.
@@ -50 +48 @@
  */
 int
-chap95 (mjd, obj, prec, ret)
-double mjd;
-int obj;
-double prec;
-double *ret;
+chap95 (double m, int obj, double prec, double *ret)
 {
         static double a0[] = {          /* semimajor axes for precision ctrl */
@@ -67 +61 @@
 
         /* check parameters */
-        if (mjd < CHAP_BEGIN || mjd > CHAP_END)
+        if (m < CHAP_BEGIN || m > CHAP_END)
                 return (1);
 
@@ -79 +73 @@
         zero_mem ((void *)sum, sizeof(sum));
 
-        T = (mjd - J2000)/36525.0;      /* centuries since J2000.0 */
+        T = (m - J2000)/36525.0;        /* centuries since J2000.0 */
 
         /* modify precision treshold for
@@ -178 +172 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: chap95.c,v $ $Date: 2001-10-22 12:08:26 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: chap95.c,v $ $Date: 2004-06-15 16:52:37 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};