# HG changeset patch
# User jwe
# Date 1130941885 0
# Node ID 29d855ffcfadd2d12937a80c5b7ba48942e5f728
# Parent  480035e1c2b03e9b997c7ee3cbd5d74619658fe4
[project @ 2005-11-02 14:31:25 by jwe]

diff -r 480035e1c2b0 -r 29d855ffcfad libcruft/ranlib/ignbin.f
--- a/libcruft/ranlib/ignbin.f	Tue Nov 01 22:41:22 2005 +0000
+++ b/libcruft/ranlib/ignbin.f	Wed Nov 02 14:31:25 2005 +0000
@@ -178,7 +178,7 @@
 C     .. Executable Statements ..
       IF (pp.NE.psave) GO TO 10
       IF (n.NE.nsave) GO TO 20
-      IF (xnp-30.0.LT.0.0) GOTO 150
+      IF (xnp-30.0.LT.0.0) GO TO 150
       GO TO 30
 C
 C*****SETUP, PERFORM ONLY WHEN PARAMETERS CHANGE
@@ -273,7 +273,7 @@
       DO 110 i = ix1,m
           f = f/ (g/i-r)
   110 CONTINUE
-  120 IF (v-f.LE.0) GOTO 170
+  120 IF (v-f.LE.0) GO TO 170
       GO TO 30
 C
 C     SQUEEZING USING UPPER AND LOWER BOUNDS ON ALOG(F(X))
@@ -300,7 +300,7 @@
      +    140./f2)/f2)/f2)/f2)/f1/166320.+ (13860.- (462.- (132.- (99.-
      +    140./z2)/z2)/z2)/z2)/z/166320.+ (13860.- (462.- (132.- (99.-
      +    140./x2)/x2)/x2)/x2)/x1/166320.+ (13860.- (462.- (132.- (99.-
-     +    140./w2)/w2)/w2)/w2)/w/166320. .LE. 0.)) GO TO 170
+     +    140./w2)/w2)/w2)/w2)/w/166320.) .LE. 0.) GO TO 170
       GO TO 30
 C
 C     INVERSE CDF LOGIC FOR MEAN LESS THAN 30