| [1425] | 1 | *DECK XERCNT |
|---|
| 2 | SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL) |
|---|
| [2197] | 3 | IMPLICIT NONE |
|---|
| [1425] | 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 |
|---|
| [2197] | 59 | INTEGER NERR, LEVEL, KONTRL |
|---|
| [1425] | 60 | C***FIRST EXECUTABLE STATEMENT XERCNT |
|---|
| 61 | RETURN |
|---|
| 62 | END |
|---|
