binaries/src/disembl/Tisean_3.0.1/source_f/slatec/xercnt.f

   1 *DECK XERCNT
   2 c changed by setting KONTRL=0
   3       SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
   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 C***FIRST EXECUTABLE STATEMENT  XERCNT
  60       KONTRL=0
  61       RETURN
  62       END