GCC Code Coverage Report


Directory: ./
File: misc/xercnt.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 XERCNT
2 SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
3 IMPLICIT NONE
4 C***BEGIN PROLOGUE XERCNT
5 C***SUBSIDIARY
6 C***PURPOSE Allow user control over handling of errors.
7 C***LIBRARY SLATEC (XERROR)
8 C***CATEGORY R3C
9 C***TYPE ALL (XERCNT-A)
10 C***KEYWORDS ERROR, XERROR
11 C***AUTHOR Jones, R. E., (SNLA)
12 C***DESCRIPTION
13 C
14 C Abstract
15 C Allows user control over handling of individual errors.
16 C Just after each message is recorded, but before it is
17 C processed any further (i.e., before it is printed or
18 C a decision to abort is made), a call is made to XERCNT.
19 C If the user has provided his own version of XERCNT, he
20 C can then override the value of KONTROL used in processing
21 C this message by redefining its value.
22 C KONTRL may be set to any value from -2 to 2.
23 C The meanings for KONTRL are the same as in XSETF, except
24 C that the value of KONTRL changes only for this message.
25 C If KONTRL is set to a value outside the range from -2 to 2,
26 C it will be moved back into that range.
27 C
28 C Description of Parameters
29 C
30 C --Input--
31 C LIBRAR - the library that the routine is in.
32 C SUBROU - the subroutine that XERMSG is being called from
33 C MESSG - the first 20 characters of the error message.
34 C NERR - same as in the call to XERMSG.
35 C LEVEL - same as in the call to XERMSG.
36 C KONTRL - the current value of the control flag as set
37 C by a call to XSETF.
38 C
39 C --Output--
40 C KONTRL - the new value of KONTRL. If KONTRL is not
41 C defined, it will remain at its original value.
42 C This changed value of control affects only
43 C the current occurrence of the current message.
44 C
45 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
46 C Error-handling Package, SAND82-0800, Sandia
47 C Laboratories, 1982.
48 C***ROUTINES CALLED (NONE)
49 C***REVISION HISTORY (YYMMDD)
50 C 790801 DATE WRITTEN
51 C 861211 REVISION DATE from Version 3.2
52 C 891214 Prologue converted to Version 4.0 format. (BAB)
53 C 900206 Routine changed from user-callable to subsidiary. (WRB)
54 C 900510 Changed calling sequence to include LIBRARY and SUBROUTINE
55 C names, changed routine name from XERCTL to XERCNT. (RWC)
56 C 920501 Reformatted the REFERENCES section. (WRB)
57 C***END PROLOGUE XERCNT
58 CHARACTER*(*) LIBRAR, SUBROU, MESSG
59 INTEGER NERR, LEVEL, KONTRL
60 C***FIRST EXECUTABLE STATEMENT XERCNT
61 RETURN
62 END
63