mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-01 06:23:39 +01:00
51 lines
1.9 KiB
Fortran
51 lines
1.9 KiB
Fortran
*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
|