# xerhlt.f

          SUBROUTINE XERHLT (MESSG)
    C***BEGIN PROLOGUE  XERHLT
    ....
    ....
    Warning:   this routine is not intended to be user-callable.
    ....
    ....
    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