xerhlt.f

Go to the documentation of this file.
00001 *DECK XERHLT
00002       SUBROUTINE XERHLT (MESSG)
00003 C***BEGIN PROLOGUE  XERHLT
00004 C***SUBSIDIARY
00005 C***PURPOSE  Abort program execution and print error message.
00006 C***LIBRARY   SLATEC (XERROR)
00007 C***CATEGORY  R3C
00008 C***TYPE      ALL (XERHLT-A)
00009 C***KEYWORDS  ABORT PROGRAM EXECUTION, ERROR, XERROR
00010 C***AUTHOR  Jones, R. E., (SNLA)
00011 C***DESCRIPTION
00012 C
00013 C     Abstract
00014 C        ***Note*** machine dependent routine
00015 C        XERHLT aborts the execution of the program.
00016 C        The error message causing the abort is given in the calling
00017 C        sequence, in case one needs it for printing on a dayfile,
00018 C        for example.
00019 C
00020 C     Description of Parameters
00021 C        MESSG is as in XERMSG.
00022 C
00023 C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
00024 C                 Error-handling Package, SAND82-0800, Sandia
00025 C                 Laboratories, 1982.
00026 C***ROUTINES CALLED  (NONE)
00027 C***REVISION HISTORY  (YYMMDD)
00028 C   790801  DATE WRITTEN
00029 C   861211  REVISION DATE from Version 3.2
00030 C   891214  Prologue converted to Version 4.0 format.  (BAB)
00031 C   900206  Routine changed from user-callable to subsidiary.  (WRB)
00032 C   900510  Changed calling sequence to delete length of character
00033 C           and changed routine name from XERABT to XERHLT.  (RWC)
00034 C   920501  Reformatted the REFERENCES section.  (WRB)
00035 C***END PROLOGUE  XERHLT
00036       CHARACTER*(*) MESSG
00037 C***FIRST EXECUTABLE STATEMENT  XERHLT
00038       CALL XSTOPX (MESSG)
00039       END
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Defines