source: LMDZ5/trunk/libf/bibio/xgetua.F @ 2197

Last change on this file since 2197 was 2197, checked in by Ehouarn Millour, 9 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: 1.9 KB
Line 
1*DECK XGETUA
2      SUBROUTINE XGETUA (IUNITA, N)
3      IMPLICIT NONE
4C***BEGIN PROLOGUE  XGETUA
5C***PURPOSE  Return unit number(s) to which error messages are being
6C            sent.
7C***LIBRARY   SLATEC (XERROR)
8C***CATEGORY  R3C
9C***TYPE      ALL (XGETUA-A)
10C***KEYWORDS  ERROR, XERROR
11C***AUTHOR  Jones, R. E., (SNLA)
12C***DESCRIPTION
13C
14C     Abstract
15C        XGETUA may be called to determine the unit number or numbers
16C        to which error messages are being sent.
17C        These unit numbers may have been set by a call to XSETUN,
18C        or a call to XSETUA, or may be a default value.
19C
20C     Description of Parameters
21C      --Output--
22C        IUNIT - an array of one to five unit numbers, depending
23C                on the value of N.  A value of zero refers to the
24C                default unit, as defined by the I1MACH machine
25C                constant routine.  Only IUNIT(1),...,IUNIT(N) are
26C                defined by XGETUA.  The values of IUNIT(N+1),...,
27C                IUNIT(5) are not defined (for N .LT. 5) or altered
28C                in any way by XGETUA.
29C        N     - the number of units to which copies of the
30C                error messages are being sent.  N will be in the
31C                range from 1 to 5.
32C
33C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
34C                 Error-handling Package, SAND82-0800, Sandia
35C                 Laboratories, 1982.
36C***ROUTINES CALLED  J4SAVE
37C***REVISION HISTORY  (YYMMDD)
38C   790801  DATE WRITTEN
39C   861211  REVISION DATE from Version 3.2
40C   891214  Prologue converted to Version 4.0 format.  (BAB)
41C   920501  Reformatted the REFERENCES section.  (WRB)
42C***END PROLOGUE  XGETUA
43      DIMENSION IUNITA(5)
44      INTEGER IUNITA, N, J4SAVE, INDEX, I
45C***FIRST EXECUTABLE STATEMENT  XGETUA
46      N = J4SAVE(5,0,.FALSE.)
47      DO 30 I=1,N
48         INDEX = I+4
49         IF (I.EQ.1) INDEX = 3
50         IUNITA(I) = J4SAVE(INDEX,0,.FALSE.)
51   30 CONTINUE
52      RETURN
53      END
Note: See TracBrowser for help on using the repository browser.