xsetua.f
SUBROUTINE XSETUA (IUNITA, N)
C***BEGIN PROLOGUE XSETUA
C***PURPOSE Set logical unit numbers (up to 5) to which error
C messages are to be sent.
C***LIBRARY SLATEC (XERROR)
C***CATEGORY R3B
C***TYPE ALL (XSETUA-A)
C***KEYWORDS ERROR, XERROR
C***AUTHOR Jones, R. E., (SNLA)
C***DESCRIPTION
C
C Abstract
C XSETUA may be called to declare a list of up to five
C logical units, each of which is to receive a copy of
C each error message processed by this package.
C The purpose of XSETUA is to allow simultaneous printing
C of each error message on, say, a main output file,
C an interactive terminal, and other files such as graphics
C communication files.
C
C Description of Parameters
C --Input--
C IUNIT - an array of up to five unit numbers.
C Normally these numbers should all be different
C (but duplicates are not prohibited.)
C N - the number of unit numbers provided in IUNIT
C must have 1 .LE. N .LE. 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, XERMSG
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 900510 Change call to XERRWV to XERMSG. (RWC)
C 920501 Reformatted the REFERENCES section. (WRB)
C***END PROLOGUE XSETUA