website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/j4save.f

   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,10/
  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