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

Timestamp:

Oct 22, 2001, 2:08:28 PM (24 years ago)

Author:

cmv

Message:

Adapted to version 3.5 xephem cmv 22/10/2001

File:

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

trunk/SophyaExt/XephemAstroLib/vsop87.c

@@ -152 +152 @@
 
             /* precision threshold */
-            if(alpha>0) p = t_abs[alpha-1]; else p=0.;
-            p = q/(t_abs[alpha] + alpha * p * 1e-4 + 1e-35);
+            p= alpha ? q/(t_abs[alpha] + alpha*t_abs[alpha-1]*1e-4 + 1e-35) : q;
 #if VSOP_SPHERICAL
             if (cooidx == 2)    /* scale by semimajor axis for radius */
@@ -212 +211 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: vsop87.c,v $ $Date: 2001-10-11 12:40:41 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};
+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 $"};