00001 *DECK XERCNT 00002 SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL) 00003 C***BEGIN PROLOGUE XERCNT 00004 C***SUBSIDIARY 00005 C***PURPOSE Allow user control over handling of errors. 00006 C***LIBRARY SLATEC (XERROR) 00007 C***CATEGORY R3C 00008 C***TYPE ALL (XERCNT-A) 00009 C***KEYWORDS ERROR, XERROR 00010 C***AUTHOR Jones, R. E., (SNLA) 00011 C***DESCRIPTION 00012 C 00013 C Abstract 00014 C Allows user control over handling of individual errors. 00015 C Just after each message is recorded, but before it is 00016 C processed any further (i.e., before it is printed or 00017 C a decision to abort is made), a call is made to XERCNT. 00018 C If the user has provided his own version of XERCNT, he 00019 C can then override the value of KONTROL used in processing 00020 C this message by redefining its value. 00021 C KONTRL may be set to any value from -2 to 2. 00022 C The meanings for KONTRL are the same as in XSETF, except 00023 C that the value of KONTRL changes only for this message. 00024 C If KONTRL is set to a value outside the range from -2 to 2, 00025 C it will be moved back into that range. 00026 C 00027 C Description of Parameters 00028 C 00029 C --Input-- 00030 C LIBRAR - the library that the routine is in. 00031 C SUBROU - the subroutine that XERMSG is being called from 00032 C MESSG - the first 20 characters of the error message. 00033 C NERR - same as in the call to XERMSG. 00034 C LEVEL - same as in the call to XERMSG. 00035 C KONTRL - the current value of the control flag as set 00036 C by a call to XSETF. 00037 C 00038 C --Output-- 00039 C KONTRL - the new value of KONTRL. If KONTRL is not 00040 C defined, it will remain at its original value. 00041 C This changed value of control affects only 00042 C the current occurrence of the current message. 00043 C 00044 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC 00045 C Error-handling Package, SAND82-0800, Sandia 00046 C Laboratories, 1982. 00047 C***ROUTINES CALLED (NONE) 00048 C***REVISION HISTORY (YYMMDD) 00049 C 790801 DATE WRITTEN 00050 C 861211 REVISION DATE from Version 3.2 00051 C 891214 Prologue converted to Version 4.0 format. (BAB) 00052 C 900206 Routine changed from user-callable to subsidiary. (WRB) 00053 C 900510 Changed calling sequence to include LIBRARY and SUBROUTINE 00054 C names, changed routine name from XERCTL to XERCNT. (RWC) 00055 C 920501 Reformatted the REFERENCES section. (WRB) 00056 C***END PROLOGUE XERCNT 00057 CHARACTER*(*) LIBRAR, SUBROU, MESSG 00058 C***FIRST EXECUTABLE STATEMENT XERCNT 00059 RETURN 00060 END
1.7.1
