GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
xgetf.f
Go to the documentation of this file.
1 *DECK XGETF
2  SUBROUTINE xgetf (KONTRL)
3 C***BEGIN PROLOGUE XGETF
4 C***PURPOSE Return the current value of the error control flag.
5 C***LIBRARY SLATEC (XERROR)
6 C***CATEGORY R3C
7 C***TYPE ALL (XGETF-A)
8 C***KEYWORDS ERROR, XERROR
9 C***AUTHOR Jones, R. E., (SNLA)
10 C***DESCRIPTION
11 C
12 C Abstract
13 C XGETF returns the current value of the error control flag
14 C in KONTRL. See subroutine XSETF for flag value meanings.
15 C (KONTRL is an output parameter only.)
16 C
17 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
18 C Error-handling Package, SAND82-0800, Sandia
19 C Laboratories, 1982.
20 C***ROUTINES CALLED J4SAVE
21 C***REVISION HISTORY (YYMMDD)
22 C 790801 DATE WRITTEN
23 C 861211 REVISION DATE from Version 3.2
24 C 891214 Prologue converted to Version 4.0 format. (BAB)
25 C 920501 Reformatted the REFERENCES section. (WRB)
26 C***END PROLOGUE XGETF
27 C***FIRST EXECUTABLE STATEMENT XGETF
28  kontrl = j4save(2,0,.false.)
29  RETURN
30  END