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 |