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