GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
xsetf.f
Go to the documentation of this file.
1 *DECK XSETF
2  SUBROUTINE xsetf (KONTRL)
3 C***BEGIN PROLOGUE XSETF
4 C***PURPOSE Set the error control flag.
5 C***LIBRARY SLATEC (XERROR)
6 C***CATEGORY R3A
7 C***TYPE ALL (XSETF-A)
8 C***KEYWORDS ERROR, XERROR
9 C***AUTHOR Jones, R. E., (SNLA)
10 C***DESCRIPTION
11 C
12 C Abstract
13 C XSETF sets the error control flag value to KONTRL.
14 C (KONTRL is an input parameter only.)
15 C The following table shows how each message is treated,
16 C depending on the values of KONTRL and LEVEL. (See XERMSG
17 C for description of LEVEL.)
18 C
19 C If KONTRL is zero or negative, no information other than the
20 C message itself (including numeric values, if any) will be
21 C printed. If KONTRL is positive, introductory messages,
22 C trace-backs, etc., will be printed in addition to the message.
23 C
24 C ABS(KONTRL)
25 C LEVEL 0 1 2
26 C value
27 C 2 fatal fatal fatal
28 C
29 C 1 not printed printed fatal
30 C
31 C 0 not printed printed printed
32 C
33 C -1 not printed printed printed
34 C only only
35 C once once
36 C
37 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
38 C Error-handling Package, SAND82-0800, Sandia
39 C Laboratories, 1982.
40 C***ROUTINES CALLED J4SAVE, XERMSG
41 C***REVISION HISTORY (YYMMDD)
42 C 790801 DATE WRITTEN
43 C 890531 Changed all specific intrinsics to generic. (WRB)
44 C 890531 REVISION DATE from Version 3.2
45 C 891214 Prologue converted to Version 4.0 format. (BAB)
46 C 900510 Change call to XERRWV to XERMSG. (RWC)
47 C 920501 Reformatted the REFERENCES section. (WRB)
48 C***END PROLOGUE XSETF
49  CHARACTER *8 XERN1
50 C***FIRST EXECUTABLE STATEMENT XSETF
51  IF (abs(kontrl) .GT. 2) THEN
52  WRITE (xern1, '(I8)') kontrl
53  CALL xermsg ('SLATEC', 'XSETF',
54  * 'INVALID ARGUMENT = ' // xern1, 1, 2)
55  RETURN
56  ENDIF
57 C
58  junk = j4save(2,kontrl,.true.)
59  RETURN
60  END
function j4save(IWHICH, IVALUE, ISET)
Definition: j4save.f:3
static T abs(T x)
Definition: pr-output.cc:1678
subroutine xermsg(LIBRAR, SUBROU, MESSG, NERR, LEVEL)
Definition: xermsg.f:3
subroutine xsetf(KONTRL)
Definition: xsetf.f:3