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 |