GCC Code Coverage Report


Directory: ./
File: misc/xerhlt.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 2 0.0%
Branches: 0 0 -%

Line Branch Exec Source
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
40