GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
xerhlt.f
Go to the documentation of this file.
1 *DECK XERHLT
2  SUBROUTINE xerhlt (MESSG)
3 C***BEGIN PROLOGUE XERHLT
4 C***SUBSIDIARY
5 C***PURPOSE Abort program execution and print error message.
6 C***LIBRARY SLATEC (XERROR)
7 C***CATEGORY R3C
8 C***TYPE ALL (XERHLT-A)
9 C***KEYWORDS ABORT PROGRAM EXECUTION, ERROR, XERROR
10 C***AUTHOR Jones, R. E., (SNLA)
11 C***DESCRIPTION
12 C
13 C Abstract
14 C ***Note*** machine dependent routine
15 C XERHLT aborts the execution of the program.
16 C The error message causing the abort is given in the calling
17 C sequence, in case one needs it for printing on a dayfile,
18 C for example.
19 C
20 C Description of Parameters
21 C MESSG is as in XERMSG.
22 C
23 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
24 C Error-handling Package, SAND82-0800, Sandia
25 C Laboratories, 1982.
26 C***ROUTINES CALLED (NONE)
27 C***REVISION HISTORY (YYMMDD)
28 C 790801 DATE WRITTEN
29 C 861211 REVISION DATE from Version 3.2
30 C 891214 Prologue converted to Version 4.0 format. (BAB)
31 C 900206 Routine changed from user-callable to subsidiary. (WRB)
32 C 900510 Changed calling sequence to delete length of character
33 C and changed routine name from XERABT to XERHLT. (RWC)
34 C 920501 Reformatted the REFERENCES section. (WRB)
35 C***END PROLOGUE XERHLT
36  CHARACTER*(*) MESSG
37 C***FIRST EXECUTABLE STATEMENT XERHLT
38  CALL xstopx (messg)
39  END
subroutine xerhlt(MESSG)
Definition: xerhlt.f:3