XGETUA Subroutine

subroutine XGETUA(IUNITA, N)

BEGIN PROLOGUE XGETUA PURPOSE Return unit number(s) to which error messages are being sent. LIBRARY SLATEC (XERROR) CATEGORY R3C TYPE ALL (XGETUA-A) KEYWORDS ERROR, XERROR AUTHOR Jones, R. E., (SNLA) DESCRIPTION

Abstract XGETUA may be called to determine the unit number or numbers to which error messages are being sent. These unit numbers may have been set by a call to XSETUN, or a call to XSETUA, or may be a default value.

Description of Parameters --Output-- IUNIT - an array of one to five unit numbers, depending on the value of N. A value of zero refers to the default unit, as defined by the I1MACH machine constant routine. Only IUNIT(1),...,IUNIT(N) are defined by XGETUA. The values of IUNIT(N+1),..., IUNIT(5) are not defined (for N .LT. 5) or altered in any way by XGETUA. N - the number of units to which copies of the error messages are being sent. N will be in the range from 1 to 5.

REFERENCES R. E. Jones and D. K. Kahaner, XERROR, the SLATEC Error-handling Package, SAND82-0800, Sandia Laboratories, 1982. ROUTINES CALLED J4SAVE REVISION HISTORY (YYMMDD) 790801 DATE WRITTEN 861211 REVISION DATE from Version 3.2 891214 Prologue converted to Version 4.0 format. (BAB) 920501 Reformatted the REFERENCES section. (WRB) END PROLOGUE XGETUA

Arguments

Type IntentOptional Attributes Name
integer :: IUNITA

**FIRST EXECUTABLE STATEMENT XGETUA
integer :: N

**FIRST EXECUTABLE STATEMENT XGETUA

Called by

proc~~xgetua~~CalledByGraph proc~xgetua XGETUA proc~xerprn XERPRN proc~xerprn->proc~xgetua proc~xersve XERSVE proc~xersve->proc~xgetua proc~xermsg XERMSG proc~xermsg->proc~xerprn proc~xermsg->proc~xersve proc~chfev CHFEV proc~chfev->proc~xermsg proc~pchdf PCHDF proc~pchdf->proc~xermsg proc~pchsp PCHSP proc~pchsp->proc~xermsg proc~pchfe PCHFE proc~pchfe->proc~xermsg proc~pchfe->proc~chfev proc~pchsp_95 pchsp_95 proc~pchsp_95->proc~pchsp proc~pchfe_95 PCHFE_95 proc~pchfe_95->proc~pchfe

Contents