Mercurial > hg > octave-lyh

diff libcruft/slatec-err/xerrwd.f @ 4040:5b781670e9ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-15 01:36:24 by jwe]
author jwe
date Thu, 15 Aug 2002 01:36:25 +0000
parents f56cd411adb4
children 179066771796
line wrap: on
line diff
--- a/libcruft/slatec-err/xerrwd.f
+++ b/libcruft/slatec-err/xerrwd.f
@@ -92,6 +92,6 @@
 C  Abort the run if LEVEL = 2.
 C
  100  IF (LEVEL .NE. 2) RETURN
-      STOP
+      CALL XSTOPX (' ')
 C----------------------- End of Subroutine XERRWD ----------------------
       END