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
1.7.1
