GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
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:2