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

trunk/SophyaExt/XephemAstroLib/obliq.c

@@ -1 +1 @@
 #include <stdio.h>
 
-#include "P_.h"
 #include "astro.h"
 
-/* given the modified Julian date, mjd, find the mean obliquity of the
+/* given the modified Julian date, mj, find the mean obliquity of the
  * ecliptic, *eps, in radians.
  *
@@ -10 +9 @@
  */
 void
-obliquity (mjd, eps)
-double mjd;
-double *eps;
+obliquity (double mj, double *eps)
 {
-        static double lastmjd = -16347, lasteps;
+        static double lastmj = -16347, lasteps;
 
-        if (mjd != lastmjd) {
-            double t = (mjd - J2000)/36525.;    /* centuries from J2000 */
+        if (mj != lastmj) {
+            double t = (mj - J2000)/36525.;     /* centuries from J2000 */
             lasteps = degrad(23.4392911 +       /* 23^ 26' 21".448 */
                             t * (-46.8150 +
                             t * ( -0.00059 +
                             t * (  0.001813 )))/3600.0);
-            lastmjd = mjd;
+            lastmj = mj;
         }
         *eps = lasteps;
@@ -28 +25 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: obliq.c,v $ $Date: 2001-10-22 12:08:27 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: obliq.c,v $ $Date: 2004-06-15 16:52:39 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};