2 SUBROUTINE XGETUA (IUNITA, N)
3 C***BEGIN PROLOGUE XGETUA
4 C***PURPOSE Return unit number(s) to which error messages are being
6 C***LIBRARY SLATEC (XERROR)
8 C***TYPE ALL (XGETUA-A)
9 C***KEYWORDS ERROR, XERROR
10 C***AUTHOR Jones, R. E., (SNLA)
14 C XGETUA may be called to determine the unit number or numbers
15 C to which error messages are being sent.
16 C These unit numbers may have been set by a call to XSETUN,
17 C or a call to XSETUA, or may be a default value.
19 C Description of Parameters
21 C IUNIT - an array of one to five unit numbers, depending
22 C on the value of N. A value of zero refers to the
23 C default unit, as defined by the I1MACH machine
24 C constant routine. Only IUNIT(1),...,IUNIT(N) are
25 C defined by XGETUA. The values of IUNIT(N+1),...,
26 C IUNIT(5) are not defined (for N .LT. 5) or altered
27 C in any way by XGETUA.
28 C N - the number of units to which copies of the
29 C error messages are being sent. N will be in the
32 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
33 C Error-handling Package, SAND82-0800, Sandia
35 C***ROUTINES CALLED J4SAVE
36 C***REVISION HISTORY (YYMMDD)
38 C 861211 REVISION DATE from Version 3.2
39 C 891214 Prologue converted to Version 4.0 format. (BAB)
40 C 920501 Reformatted the REFERENCES section. (WRB)
41 C***END PROLOGUE XGETUA
43 C***FIRST EXECUTABLE STATEMENT XGETUA
44 N = J4SAVE(5,0,.FALSE.)
48 IUNITA(I) = J4SAVE(INDEX,0,.FALSE.)