| [1425] | 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 |
|---|
