GNU Octave  9.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
j4save.f
Go to the documentation of this file.
1 *DECK J4SAVE
2  FUNCTION j4save (IWHICH, IVALUE, ISET)
3 C***BEGIN PROLOGUE J4SAVE
4 C***SUBSIDIARY
5 C***PURPOSE Save or recall global variables needed by error
6 C handling routines.
7 C***LIBRARY SLATEC (XERROR)
8 C***TYPE INTEGER (J4SAVE-I)
9 C***KEYWORDS ERROR MESSAGES, ERROR NUMBER, RECALL, SAVE, XERROR
10 C***AUTHOR Jones, R. E., (SNLA)
11 C***DESCRIPTION
12 C
13 C Abstract
14 C J4SAVE saves and recalls several global variables needed
15 C by the library error handling routines.
16 C
17 C Description of Parameters
18 C --Input--
19 C IWHICH - Index of item desired.
20 C = 1 Refers to current error number.
21 C = 2 Refers to current error control flag.
22 C = 3 Refers to current unit number to which error
23 C messages are to be sent. (0 means use standard.)
24 C = 4 Refers to the maximum number of times any
25 C message is to be printed (as set by XERMAX).
26 C = 5 Refers to the total number of units to which
27 C each error message is to be written.
28 C = 6 Refers to the 2nd unit for error messages
29 C = 7 Refers to the 3rd unit for error messages
30 C = 8 Refers to the 4th unit for error messages
31 C = 9 Refers to the 5th unit for error messages
32 C IVALUE - The value to be set for the IWHICH-th parameter,
33 C if ISET is .TRUE. .
34 C ISET - If ISET=.TRUE., the IWHICH-th parameter will BE
35 C given the value, IVALUE. If ISET=.FALSE., the
36 C IWHICH-th parameter will be unchanged, and IVALUE
37 C is a dummy parameter.
38 C --Output--
39 C The (old) value of the IWHICH-th parameter will be returned
40 C in the function value, J4SAVE.
41 C
42 C***SEE ALSO XERMSG
43 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
44 C Error-handling Package, SAND82-0800, Sandia
45 C Laboratories, 1982.
46 C***ROUTINES CALLED (NONE)
47 C***REVISION HISTORY (YYMMDD)
48 C 790801 DATE WRITTEN
49 C 891214 Prologue converted to Version 4.0 format. (BAB)
50 C 900205 Minor modifications to prologue. (WRB)
51 C 900402 Added TYPE section. (WRB)
52 C 910411 Added KEYWORDS section. (WRB)
53 C 920501 Reformatted the REFERENCES section. (WRB)
54 C***END PROLOGUE J4SAVE
55  LOGICAL iset
56  INTEGER iparam(9)
57  SAVE iparam
58  DATA iparam(1),iparam(2),iparam(3),iparam(4)/0,2,0,-1/
59  DATA iparam(5)/1/
60  DATA iparam(6),iparam(7),iparam(8),iparam(9)/0,0,0,0/
61 C***FIRST EXECUTABLE STATEMENT J4SAVE
62  j4save = iparam(iwhich)
63  IF (iset) iparam(iwhich) = ivalue
64  RETURN
65  END
function j4save(IWHICH, IVALUE, ISET)
Definition: j4save.f:3