00001 *DECK XGETUA 00002 SUBROUTINE XGETUA (IUNITA, N) 00003 C***BEGIN PROLOGUE XGETUA 00004 C***PURPOSE Return unit number(s) to which error messages are being 00005 C sent. 00006 C***LIBRARY SLATEC (XERROR) 00007 C***CATEGORY R3C 00008 C***TYPE ALL (XGETUA-A) 00009 C***KEYWORDS ERROR, XERROR 00010 C***AUTHOR Jones, R. E., (SNLA) 00011 C***DESCRIPTION 00012 C 00013 C Abstract 00014 C XGETUA may be called to determine the unit number or numbers 00015 C to which error messages are being sent. 00016 C These unit numbers may have been set by a call to XSETUN, 00017 C or a call to XSETUA, or may be a default value. 00018 C 00019 C Description of Parameters 00020 C --Output-- 00021 C IUNIT - an array of one to five unit numbers, depending 00022 C on the value of N. A value of zero refers to the 00023 C default unit, as defined by the I1MACH machine 00024 C constant routine. Only IUNIT(1),...,IUNIT(N) are 00025 C defined by XGETUA. The values of IUNIT(N+1),..., 00026 C IUNIT(5) are not defined (for N .LT. 5) or altered 00027 C in any way by XGETUA. 00028 C N - the number of units to which copies of the 00029 C error messages are being sent. N will be in the 00030 C range from 1 to 5. 00031 C 00032 C***REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC 00033 C Error-handling Package, SAND82-0800, Sandia 00034 C Laboratories, 1982. 00035 C***ROUTINES CALLED J4SAVE 00036 C***REVISION HISTORY (YYMMDD) 00037 C 790801 DATE WRITTEN 00038 C 861211 REVISION DATE from Version 3.2 00039 C 891214 Prologue converted to Version 4.0 format. (BAB) 00040 C 920501 Reformatted the REFERENCES section. (WRB) 00041 C***END PROLOGUE XGETUA 00042 DIMENSION IUNITA(5) 00043 C***FIRST EXECUTABLE STATEMENT XGETUA 00044 N = J4SAVE(5,0,.FALSE.) 00045 DO 30 I=1,N 00046 INDEX = I+4 00047 IF (I.EQ.1) INDEX = 3 00048 IUNITA(I) = J4SAVE(INDEX,0,.FALSE.) 00049 30 CONTINUE 00050 RETURN 00051 END
1.7.1
