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

trunk/SophyaExt/XephemAstroLib/precess.c

@@ -2 +2 @@
 #include <math.h>
 
-#include "P_.h"
 #include "astro.h"
 
-static void precess_hiprec P_((double mjd1, double mjd2, double *ra,
-    double *dec));
+static void precess_hiprec (double mjd1, double mjd2, double *ra, double *dec);
 
 
@@ -19 +17 @@
  */
 void
-precess (mjd1, mjd2, ra, dec)
-double mjd1, mjd2;      /* initial and final epoch modified JDs */
-double *ra, *dec;       /* ra/dec for mjd1 in, for mjd2 out */
+precess (
+double mjd1, double mjd2,       /* initial and final epoch modified JDs */
+double *ra, double *dec)        /* ra/dec for mjd1 in, for mjd2 out */
 {
         precess_hiprec (mjd1, mjd2, ra, dec);
@@ -42 +40 @@
  */
 static void
-precess_hiprec (mjd1, mjd2, ra, dec)
-double mjd1, mjd2;      /* initial and final epoch modified JDs */
-double *ra, *dec;       /* ra/dec for mjd1 in, for mjd2 out */
+precess_hiprec (
+double mjd1, double mjd2,       /* initial and final epoch modified JDs */
+double *ra, double *dec)        /* ra/dec for mjd1 in, for mjd2 out */
 {
         static double last_mjd1 = -213.432, last_from;
@@ -130 +128 @@
 #if 0
 static void
-precess_fast (mjd1, mjd2, ra, dec)
-double mjd1, mjd2;      /* initial and final epoch modified JDs */
-double *ra, *dec;       /* ra/dec for mjd1 in, for mjd2 out */
+precess_fast (
+double mjd1, double mjd2,       /* initial and final epoch modified JDs */
+double *ra, double *dec)        /* ra/dec for mjd1 in, for mjd2 out */
 {
 #define N       degrad (20.0468/3600.0)
@@ -146 +144 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: precess.c,v $ $Date: 2001-10-22 12:08:27 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: precess.c,v $ $Date: 2004-06-15 16:52:39 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};