website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/xerhlt.f

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