source: LMDZ5/branches/LMDZ5_SPLA/libf/bibio/xgetua.F @ 3406

Last change on this file since 3406 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

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