Changeset 2653 in Sophya for trunk/SophyaExt/XephemAstroLib/misc.c

Timestamp:

Mar 7, 2005, 5:47:18 PM (21 years ago)

Author:

cmv

Message:

update xephem 3.6.4 cmv 07/03/2005

File:

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

trunk/SophyaExt/XephemAstroLib/misc.c

@@ -373 +373 @@
             return;
 
-        sA = sin(A);
-        y = sA*sb*sc;
-        x = cb - ca*cc;
-        B = y ? (x ? atan2(y,x) : (y>0 ? PI/2 : -PI/2)) : (x>=0 ? 0 : PI);
+        if (sc < 1e-7)
+            B = cc < 0 ? A : PI-A;
+        else {
+            sA = sin(A);
+            y = sA*sb*sc;
+            x = cb - ca*cc;
+            B = y ? (x ? atan2(y,x) : (y>0 ? PI/2 : -PI/2)) : (x>=0 ? 0 : PI);
+        }
 
         *Bp = B;
@@ -477 +481 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: misc.c,v $ $Date: 2005-01-17 10:13:05 $ $Revision: 1.4 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: misc.c,v $ $Date: 2005-03-07 16:47:18 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};