# xgetua.f

          SUBROUTINE XGETUA (IUNITA, N)
    C***BEGIN PROLOGUE  XGETUA
    C***PURPOSE  Return unit number(s) to which error messages are being
    C            sent.
    C***LIBRARY   SLATEC (XERROR)
    C***CATEGORY  R3C
    C***TYPE      ALL (XGETUA-A)
    C***KEYWORDS  ERROR, XERROR
    C***AUTHOR  Jones, R. E., (SNLA)
    C***DESCRIPTION
    C
    C     Abstract
    C        XGETUA may be called to determine the unit number or numbers
    C        to which error messages are being sent.
    C        These unit numbers may have been set by a call to XSETUN,
    C        or a call to XSETUA, or may be a default value.
    C
    C     Description of Parameters
    C      --Output--
    C        IUNIT - an array of one to five unit numbers, depending
    C                on the value of N.  A value of zero refers to the
    C                default unit, as defined by the I1MACH machine
    C                constant routine.  Only IUNIT(1),...,IUNIT(N) are
    C                defined by XGETUA.  The values of IUNIT(N+1),...,
    C                IUNIT(5) are not defined (for N .LT. 5) or altered
    C                in any way by XGETUA.
    C        N     - the number of units to which copies of the
    C                error messages are being sent.  N will be in the
    C                range from 1 to 5.
    C
    C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
    C                 Error-handling Package, SAND82-0800, Sandia
    C                 Laboratories, 1982.
    C***ROUTINES CALLED  J4SAVE
    C***REVISION HISTORY  (YYMMDD)
    C   790801  DATE WRITTEN
    C   861211  REVISION DATE from Version 3.2
    C   891214  Prologue converted to Version 4.0 format.  (BAB)
    C   920501  Reformatted the REFERENCES section.  (WRB)
    C***END PROLOGUE  XGETUA