| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- *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
|
