doxy/html/xgetua_8_f_source.html

*DECK XGETUA

      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

      dimension iunita(5)

C***FIRST EXECUTABLE STATEMENT  XGETUA

      n = j4save(5,0,.false.)

      DO 30 i=1,n

         index = i+4

         IF (i.EQ.1) index = 3

         iunita(i) = j4save(index,0,.false.)

   30 CONTINUE

      RETURN

      END