Changeset 1895 in Sophya for trunk/SophyaExt/XephemAstroLib/refract.c

Timestamp:

Feb 7, 2002, 10:27:06 AM (24 years ago)

Author:

cmv

Message:

help cmv 7/2/2002

File:

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

trunk/SophyaExt/XephemAstroLib/refract.c

@@ -87 +87 @@
          * max=7 ave=2.4 loops in hundreds of test cases.
          */
-        do {
+        while (1) {
             a += d;
             unrefract (pr, tr, a, &t);
+            if (fabs(ta-t) <= MAXRERR)
+                break;
             d *= -(ta - t)/(t0 - t);
             t0 = t;
-        } while (fabs(ta-t) > MAXRERR);
+        }
 
         *aa = a;
@@ -100 +102 @@
 
 /* For RCS Only -- Do Not Edit */
-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 $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: refract.c,v $ $Date: 2002-02-07 09:27:06 $ $Revision: 1.3 $ $Name: not supported by cvs2svn $"};