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
1.7.1
