source: LMDZ5/trunk/libf/misc/j4save.F @ 4604

Last change on this file since 4604 was 2197, checked in by Ehouarn Millour, 10 years ago

Added 'implicit none' statements and proper variable definitions where they were missing.
EM

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 2.7 KB
Line 
1*DECK J4SAVE
2      FUNCTION J4SAVE (IWHICH, IVALUE, ISET)
3      IMPLICIT NONE
4C***BEGIN PROLOGUE  J4SAVE
5C***SUBSIDIARY
6C***PURPOSE  Save or recall global variables needed by error
7C            handling routines.
8C***LIBRARY   SLATEC (XERROR)
9C***TYPE      INTEGER (J4SAVE-I)
10C***KEYWORDS  ERROR MESSAGES, ERROR NUMBER, RECALL, SAVE, XERROR
11C***AUTHOR  Jones, R. E., (SNLA)
12C***DESCRIPTION
13C
14C     Abstract
15C        J4SAVE saves and recalls several global variables needed
16C        by the library error handling routines.
17C
18C     Description of Parameters
19C      --Input--
20C        IWHICH - Index of item desired.
21C                = 1 Refers to current error number.
22C                = 2 Refers to current error control flag.
23C                = 3 Refers to current unit number to which error
24C                    messages are to be sent.  (0 means use standard.)
25C                = 4 Refers to the maximum number of times any
26C                     message is to be printed (as set by XERMAX).
27C                = 5 Refers to the total number of units to which
28C                     each error message is to be written.
29C                = 6 Refers to the 2nd unit for error messages
30C                = 7 Refers to the 3rd unit for error messages
31C                = 8 Refers to the 4th unit for error messages
32C                = 9 Refers to the 5th unit for error messages
33C        IVALUE - The value to be set for the IWHICH-th parameter,
34C                 if ISET is .TRUE. .
35C        ISET   - If ISET=.TRUE., the IWHICH-th parameter will BE
36C                 given the value, IVALUE.  If ISET=.FALSE., the
37C                 IWHICH-th parameter will be unchanged, and IVALUE
38C                 is a dummy parameter.
39C      --Output--
40C        The (old) value of the IWHICH-th parameter will be returned
41C        in the function value, J4SAVE.
42C
43C***SEE ALSO  XERMSG
44C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
45C                 Error-handling Package, SAND82-0800, Sandia
46C                 Laboratories, 1982.
47C***ROUTINES CALLED  (NONE)
48C***REVISION HISTORY  (YYMMDD)
49C   790801  DATE WRITTEN
50C   891214  Prologue converted to Version 4.0 format.  (BAB)
51C   900205  Minor modifications to prologue.  (WRB)
52C   900402  Added TYPE section.  (WRB)
53C   910411  Added KEYWORDS section.  (WRB)
54C   920501  Reformatted the REFERENCES section.  (WRB)
55C***END PROLOGUE  J4SAVE
56      LOGICAL ISET
57      INTEGER IPARAM(9)
58      SAVE IPARAM
59      DATA IPARAM(1),IPARAM(2),IPARAM(3),IPARAM(4)/0,2,0,10/
60      DATA IPARAM(5)/1/
61      DATA IPARAM(6),IPARAM(7),IPARAM(8),IPARAM(9)/0,0,0,0/
62      INTEGER J4SAVE,IWHICH,IVALUE
63C***FIRST EXECUTABLE STATEMENT  J4SAVE
64      J4SAVE = IPARAM(IWHICH)
65      IF (ISET) IPARAM(IWHICH) = IVALUE
66      RETURN
67      END
Note: See TracBrowser for help on using the repository browser.