Mercurial > hg > octave-jordi

changeset 982:db38fe433efd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-12-14 03:48:48 by jwe]
author jwe
date Wed, 14 Dec 1994 03:50:52 +0000
parents 73cc20a6976b
children 3611f5b12826
files libcruft/misc/gen-d1mach.c libcruft/misc/i1mach.f libcruft/ranlib/ignuin.f
diffstat 3 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/misc/gen-d1mach.c
+++ b/libcruft/misc/gen-d1mach.c
@@ -408,6 +408,7 @@
   999 write(*,1999) i\n\
  1999 format(' d1mach - i out of bounds', i10)\n\
       call xstopx (' ')\n\
+      d1mach = 0\n\
       end\n");
 
   return 0;
--- a/libcruft/misc/i1mach.f
+++ b/libcruft/misc/i1mach.f
@@ -524,4 +524,5 @@
    10 WRITE(OUTPUT,1999) I
  1999 FORMAT(' I1MACH - I OUT OF BOUNDS',I10)
       CALL XSTOPX (' ')
+      I1MACH = 0
       END
--- a/libcruft/ranlib/ignuin.f
+++ b/libcruft/ranlib/ignuin.f
@@ -95,6 +95,7 @@
       WRITE (*,*) ' Abort on Fatal ERROR'
       IF (.NOT. (err.EQ.1)) GO TO 110
       CALL XSTOPX ('LOW > HIGH in IGNUIN')
+      IGNUIN = 0
 
       GO TO 120