xgetf.f

Go to the documentation of this file.
00001 *DECK XGETF
00002       SUBROUTINE XGETF (KONTRL)
00003 C***BEGIN PROLOGUE  XGETF
00004 C***PURPOSE  Return the current value of the error control flag.
00005 C***LIBRARY   SLATEC (XERROR)
00006 C***CATEGORY  R3C
00007 C***TYPE      ALL (XGETF-A)
00008 C***KEYWORDS  ERROR, XERROR
00009 C***AUTHOR  Jones, R. E., (SNLA)
00010 C***DESCRIPTION
00011 C
00012 C   Abstract
00013 C        XGETF returns the current value of the error control flag
00014 C        in KONTRL.  See subroutine XSETF for flag value meanings.
00015 C        (KONTRL is an output parameter only.)
00016 C
00017 C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
00018 C                 Error-handling Package, SAND82-0800, Sandia
00019 C                 Laboratories, 1982.
00020 C***ROUTINES CALLED  J4SAVE
00021 C***REVISION HISTORY  (YYMMDD)
00022 C   790801  DATE WRITTEN
00023 C   861211  REVISION DATE from Version 3.2
00024 C   891214  Prologue converted to Version 4.0 format.  (BAB)
00025 C   920501  Reformatted the REFERENCES section.  (WRB)
00026 C***END PROLOGUE  XGETF
00027 C***FIRST EXECUTABLE STATEMENT  XGETF
00028       KONTRL = J4SAVE(2,0,.FALSE.)
00029       RETURN
00030       END
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Defines