--- /dev/null
+*DECK XERHLT
+ SUBROUTINE XERHLT (MESSG)
+C***BEGIN PROLOGUE XERHLT
+C***SUBSIDIARY
+C***PURPOSE Abort program execution and print error message.
+C***LIBRARY SLATEC (XERROR)
+C***CATEGORY R3C
+C***TYPE ALL (XERHLT-A)
+C***KEYWORDS ABORT PROGRAM EXECUTION, ERROR, XERROR
+C***AUTHOR Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C Abstract
+C ***Note*** machine dependent routine
+C XERHLT aborts the execution of the program.
+C The error message causing the abort is given in the calling
+C sequence, in case one needs it for printing on a dayfile,
+C for example.
+C
+C Description of Parameters
+C MESSG is as in XERMSG.
+C
+C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C Error-handling Package, SAND82-0800, Sandia
+C Laboratories, 1982.
+C***ROUTINES CALLED (NONE)
+C***REVISION HISTORY (YYMMDD)
+C 790801 DATE WRITTEN
+C 861211 REVISION DATE from Version 3.2
+C 891214 Prologue converted to Version 4.0 format. (BAB)
+C 900206 Routine changed from user-callable to subsidiary. (WRB)
+C 900510 Changed calling sequence to delete length of character
+C and changed routine name from XERABT to XERHLT. (RWC)
+C 920501 Reformatted the REFERENCES section. (WRB)
+C***END PROLOGUE XERHLT
+ CHARACTER*(*) MESSG
+C***FIRST EXECUTABLE STATEMENT XERHLT
+ STOP
+ END