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

trunk/SophyaExt/XephemAstroLib/refract.c

@@ -32 +32 @@
             *ta = taLT + (taGE - taLT)*p;
         }
-            
 }
 
@@ -60 +59 @@
         r = degrad(a/b);
 
-        *ta  =  aa - r;
+        *ta  =  (aa < 0 && r < 0) ? aa : aa - r;        /* 0 below ~5 degs */
 }
 
@@ -101 +100 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2001-04-10 14:40:47 $ $Revision: 1.1.1.1 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2001-10-22 12:08:27 $ $Revision: 1.2 $ $Name: not supported by cvs2svn $"};