# xercnt.f

          SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
    C***BEGIN PROLOGUE  XERCNT
    ....
    ....
    Warning:   this routine is not intended to be user-callable.
    ....
    ....
    C***SUBSIDIARY
    C***PURPOSE  Allow user control over handling of errors.
    C***LIBRARY   SLATEC (XERROR)
    C***CATEGORY  R3C
    C***TYPE      ALL (XERCNT-A)
    C***KEYWORDS  ERROR, XERROR
    C***AUTHOR  Jones, R. E., (SNLA)
    C***DESCRIPTION
    C
    C     Abstract
    C        Allows user control over handling of individual errors.
    C        Just after each message is recorded, but before it is
    C        processed any further (i.e., before it is printed or
    C        a decision to abort is made), a call is made to XERCNT.
    C        If the user has provided his own version of XERCNT, he
    C        can then override the value of KONTROL used in processing
    C        this message by redefining its value.
    C        KONTRL may be set to any value from -2 to 2.
    C        The meanings for KONTRL are the same as in XSETF, except
    C        that the value of KONTRL changes only for this message.
    C        If KONTRL is set to a value outside the range from -2 to 2,
    C        it will be moved back into that range.
    C
    C     Description of Parameters
    C
    C      --Input--
    C        LIBRAR - the library that the routine is in.
    C        SUBROU - the subroutine that XERMSG is being called from
    C        MESSG  - the first 20 characters of the error message.
    C        NERR   - same as in the call to XERMSG.
    C        LEVEL  - same as in the call to XERMSG.
    C        KONTRL - the current value of the control flag as set
    C                 by a call to XSETF.
    C
    C      --Output--
    C        KONTRL - the new value of KONTRL.  If KONTRL is not
    C                 defined, it will remain at its original value.
    C                 This changed value of control affects only
    C                 the current occurrence of the current message.
    C
    C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
    C                 Error-handling Package, SAND82-0800, Sandia
    C                 Laboratories, 1982.
    C***ROUTINES CALLED  (NONE)
    C***REVISION HISTORY  (YYMMDD)
    C   790801  DATE WRITTEN
    C   861211  REVISION DATE from Version 3.2
    C   891214  Prologue converted to Version 4.0 format.  (BAB)
    C   900206  Routine changed from user-callable to subsidiary.  (WRB)
    C   900510  Changed calling sequence to include LIBRARY and SUBROUTINE
    C           names, changed routine name from XERCTL to XERCNT.  (RWC)
    C   920501  Reformatted the REFERENCES section.  (WRB)
    C***END PROLOGUE  XERCNT