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
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