1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
*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
|
