Mercurial > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
4039:e82257ed348c 4040:5b781670e9ee
90 50 FORMAT(6X,'In above, R1 =',D21.13,3X,'R2 =',D21.13) 90 50 FORMAT(6X,'In above, R1 =',D21.13,3X,'R2 =',D21.13)
91 C 91 C
92 C Abort the run if LEVEL = 2. 92 C Abort the run if LEVEL = 2.
93 C 93 C
94 100 IF (LEVEL .NE. 2) RETURN 94 100 IF (LEVEL .NE. 2) RETURN
95 STOP 95 CALL XSTOPX (' ')
96 C----------------------- End of Subroutine XERRWD ---------------------- 96 C----------------------- End of Subroutine XERRWD ----------------------
97 END 97 END