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