GNU Octave
4.4.1
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
liboctave
external
slatec-err
xgetf.f
Generated on Sat Sep 1 2018 14:01:45 for GNU Octave by
1.8.14