GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
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
function j4save(IWHICH, IVALUE, ISET)
Definition: j4save.f:3
subroutine xgetf(KONTRL)
Definition: xgetf.f:3