Mercurial > hg > octave-lyh

diff libcruft/ranlib/ignpoi.f @ 5528:480035e1c2b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-01 22:41:22 by jwe]
author jwe
date Tue, 01 Nov 2005 22:41:22 +0000
parents df7c57a6639d
children 0e71ead7359d
line wrap: on
line diff
--- a/libcruft/ranlib/ignpoi.f
+++ b/libcruft/ranlib/ignpoi.f
@@ -225,7 +225,8 @@
       xx = x*x
       fx = -0.5*xx
       fy = omega* (((c3*xx+c2)*xx+c1)*xx+c0)
-      IF (kflag) 40,40,60
+      IF (kflag.LE.0) GO TO 40
+      GO TO 60
 C
 C     C A S E  B. (START NEW TABLE AND CALCULATE P0 IF NECESSARY)
 C