# xsetf.f

          SUBROUTINE XSETF (KONTRL)
    C***BEGIN PROLOGUE  XSETF
    C***PURPOSE  Set the error control flag.
    C***LIBRARY   SLATEC (XERROR)
    C***CATEGORY  R3A
    C***TYPE      ALL (XSETF-A)
    C***KEYWORDS  ERROR, XERROR
    C***AUTHOR  Jones, R. E., (SNLA)
    C***DESCRIPTION
    C
    C     Abstract
    C        XSETF sets the error control flag value to KONTRL.
    C        (KONTRL is an input parameter only.)
    C        The following table shows how each message is treated,
    C        depending on the values of KONTRL and LEVEL.  (See XERMSG
    C        for description of LEVEL.)
    C
    C        If KONTRL is zero or negative, no information other than the
    C        message itself (including numeric values, if any) will be
    C        printed.  If KONTRL is positive, introductory messages,
    C        trace-backs, etc., will be printed in addition to the message.
    C
    C              ABS(KONTRL)
    C        LEVEL        0              1              2
    C        value
    C          2        fatal          fatal          fatal
    C
    C          1     not printed      printed         fatal
    C
    C          0     not printed      printed        printed
    C
    C         -1     not printed      printed        printed
    C                                  only           only
    C                                  once           once
    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  J4SAVE, XERMSG
    C***REVISION HISTORY  (YYMMDD)
    C   790801  DATE WRITTEN
    C   890531  Changed all specific intrinsics to generic.  (WRB)
    C   890531  REVISION DATE from Version 3.2
    C   891214  Prologue converted to Version 4.0 format.  (BAB)
    C   900510  Change call to XERRWV to XERMSG.  (RWC)
    C   920501  Reformatted the REFERENCES section.  (WRB)
    C***END PROLOGUE  XSETF