Changeset 2643 in Sophya for trunk/SophyaExt/XephemAstroLib/plmoon.c

Timestamp:

Jan 17, 2005, 11:13:08 AM (21 years ago)

Author:

cmv

Message:

update pour version 3.6.3 Xephem cmv 17/01/04

File:

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

trunk/SophyaExt/XephemAstroLib/plmoon.c

@@ -106 +106 @@
         MoonData md[X_MAXNMOONS];
         double sz, t1, t2;
+        double pra, pdec;
         MoonData *mdp;
         Obj *planop;
@@ -136 +137 @@
 
             /* don't worry, this already caches based on same mjd */
-            marsm_data (mjd, moondir, sunop, planop, &sz, md);
+            marsm_data (mjd, moondir, sunop, planop, &sz, &pra, &pdec, md);
             mdp = &md[moonop->pl_moon];
             break;
@@ -154 +155 @@
 
             /* don't worry, this already caches based on same mjd */
-            jupiter_data (mjd, moondir, sunop, planop, &sz, &t1, &t2, md);
+            jupiter_data (mjd,moondir,sunop,planop,&sz,&t1,&t2,&pra,&pdec,md);
             mdp = &md[moonop->pl_moon];
             moonop->pl_aux1 = t1;
@@ -178 +179 @@
 
             /* don't worry, this already caches based on same mjd */
-            saturn_data (mjd, moondir, sunop, planop, &sz, &t1, &t2, md);
+            saturn_data (mjd,moondir,sunop,planop,&sz,&t1,&t2,&pra,&pdec,md);
             mdp = &md[moonop->pl_moon];
             moonop->pl_aux1 = t1;
@@ -199 +200 @@
 
             /* don't worry, this already caches based on same mjd */
-            uranus_data (mjd, moondir, sunop, planop, &sz, md);
+            uranus_data (mjd, moondir, sunop, planop, &sz, &pra, &pdec, md);
             mdp = &md[moonop->pl_moon];
             break;