00001 *DECK J4SAVE 00002 FUNCTION J4SAVE (IWHICH, IVALUE, ISET) 00003 C***BEGIN PROLOGUE J4SAVE 00004 C***SUBSIDIARY 00005 C***PURPOSE Save or recall global variables needed by error 00006 C handling routines. 00007 C***LIBRARY SLATEC (XERROR) 00008 C***TYPE INTEGER (J4SAVE-I) 00009 C***KEYWORDS ERROR MESSAGES, ERROR NUMBER, RECALL, SAVE, XERROR 00010 C***AUTHOR Jones, R. E., (SNLA) 00011 C***DESCRIPTION 00012 C 00013 C Abstract 00014 C J4SAVE saves and recalls several global variables needed 00015 C by the library error handling routines. 00016 C 00017 C Description of Parameters 00018 C --Input-- 00019 C IWHICH - Index of item desired. 00020 C = 1 Refers to current error number. 00021 C = 2 Refers to current error control flag. 00022 C = 3 Refers to current unit number to which error 00023 C messages are to be sent. (0 means use standard.) 00024 C = 4 Refers to the maximum number of times any 00025 C message is to be printed (as set by XERMAX). 00026 C = 5 Refers to the total number of units to which 00027 C each error message is to be written. 00028 C = 6 Refers to the 2nd unit for error messages 00029 C = 7 Refers to the 3rd unit for error messages 00030 C = 8 Refers to the 4th unit for error messages 00031 C = 9 Refers to the 5th unit for error messages 00032 C IVALUE - The value to be set for the IWHICH-th parameter, 00033 C if ISET is .TRUE. . 00034 C ISET - If ISET=.TRUE., the IWHICH-th parameter will BE 00035 C given the value, IVALUE. If ISET=.FALSE., the 00036 C IWHICH-th parameter will be unchanged, and IVALUE 00037 C is a dummy parameter. 00038 C --Output-- 00039 C The (old) value of the IWHICH-th parameter will be returned 00040 C in the function value, J4SAVE. 00041 C 00042 C***SEE ALSO XERMSG 00043 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC 00044 C Error-handling Package, SAND82-0800, Sandia 00045 C Laboratories, 1982. 00046 C***ROUTINES CALLED (NONE) 00047 C***REVISION HISTORY (YYMMDD) 00048 C 790801 DATE WRITTEN 00049 C 891214 Prologue converted to Version 4.0 format. (BAB) 00050 C 900205 Minor modifications to prologue. (WRB) 00051 C 900402 Added TYPE section. (WRB) 00052 C 910411 Added KEYWORDS section. (WRB) 00053 C 920501 Reformatted the REFERENCES section. (WRB) 00054 C***END PROLOGUE J4SAVE 00055 LOGICAL ISET 00056 INTEGER IPARAM(9) 00057 SAVE IPARAM 00058 DATA IPARAM(1),IPARAM(2),IPARAM(3),IPARAM(4)/0,2,0,-1/ 00059 DATA IPARAM(5)/1/ 00060 DATA IPARAM(6),IPARAM(7),IPARAM(8),IPARAM(9)/0,0,0,0/ 00061 C***FIRST EXECUTABLE STATEMENT J4SAVE 00062 J4SAVE = IPARAM(IWHICH) 00063 IF (ISET) IPARAM(IWHICH) = IVALUE 00064 RETURN 00065 END
1.7.1
