Changeset 3111 in Sophya for trunk/SophyaExt/XephemAstroLib/sphcart.c

Timestamp:

Nov 22, 2006, 2:53:31 PM (19 years ago)

Author:

cmv

Message:

mise en conformite xephem 3.7.2 cmv 22/11/2006

File:

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

trunk/SophyaExt/XephemAstroLib/sphcart.c

@@ -25 +25 @@
         double rho = x*x + y*y;
 
-        if (rho > 1e-35) {      /* standard case: off axis */
+        if (rho > 0) {  /* standard case: off axis */
             *l = atan2(y, x);
             range (l, 2*PI);
@@ -41 +41 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sphcart.c,v $ $Date: 2005-08-21 10:02:39 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: sphcart.c,v $ $Date: 2006-11-22 13:53:31 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};