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