BEGIN PROLOGUE J4SAVE SUBSIDIARY PURPOSE Save or recall global variables needed by error handling routines. LIBRARY SLATEC (XERROR) TYPE INTEGER (J4SAVE-I) KEYWORDS ERROR MESSAGES, ERROR NUMBER, RECALL, SAVE, XERROR AUTHOR Jones, R. E., (SNLA) DESCRIPTION
Abstract J4SAVE saves and recalls several global variables needed by the library error handling routines.
Description of Parameters --Input-- IWHICH - Index of item desired. = 1 Refers to current error number. = 2 Refers to current error control flag. = 3 Refers to current unit number to which error messages are to be sent. (0 means use standard.) = 4 Refers to the maximum number of times any message is to be printed (as set by XERMAX). = 5 Refers to the total number of units to which each error message is to be written. = 6 Refers to the 2nd unit for error messages = 7 Refers to the 3rd unit for error messages = 8 Refers to the 4th unit for error messages = 9 Refers to the 5th unit for error messages IVALUE - The value to be set for the IWHICH-th parameter, if ISET is .TRUE. . ISET - If ISET=.TRUE., the IWHICH-th parameter will BE given the value, IVALUE. If ISET=.FALSE., the IWHICH-th parameter will be unchanged, and IVALUE is a dummy parameter. --Output-- The (old) value of the IWHICH-th parameter will be returned in the function value, J4SAVE.
SEE ALSO XERMSG REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC Error-handling Package, SAND82-0800, Sandia Laboratories, 1982. ROUTINES CALLED (NONE) REVISION HISTORY (YYMMDD) 790801 DATE WRITTEN 891214 Prologue converted to Version 4.0 format. (BAB) 900205 Minor modifications to prologue. (WRB) 900402 Added TYPE section. (WRB) 910411 Added KEYWORDS section. (WRB) 920501 Reformatted the REFERENCES section. (WRB) **END PROLOGUE J4SAVE
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | IWHICH |
**FIRST EXECUTABLE STATEMENT J4SAVE |
|||
| integer | :: | IVALUE |
**FIRST EXECUTABLE STATEMENT J4SAVE |
|||
| logical | :: | ISET |
**FIRST EXECUTABLE STATEMENT J4SAVE