website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/xgetua.f

   1 *DECK XGETUA
   2       SUBROUTINE XGETUA (IUNITA, N)
   3 C***BEGIN PROLOGUE  XGETUA
   4 C***PURPOSE  Return unit number(s) to which error messages are being
   5 C            sent.
   6 C***LIBRARY   SLATEC (XERROR)
   7 C***CATEGORY  R3C
   8 C***TYPE      ALL (XGETUA-A)
   9 C***KEYWORDS  ERROR, XERROR
  10 C***AUTHOR  Jones, R. E., (SNLA)
  11 C***DESCRIPTION
  12 C
  13 C     Abstract
  14 C        XGETUA may be called to determine the unit number or numbers
  15 C        to which error messages are being sent.
  16 C        These unit numbers may have been set by a call to XSETUN,
  17 C        or a call to XSETUA, or may be a default value.
  18 C
  19 C     Description of Parameters
  20 C      --Output--
  21 C        IUNIT - an array of one to five unit numbers, depending
  22 C                on the value of N.  A value of zero refers to the
  23 C                default unit, as defined by the I1MACH machine
  24 C                constant routine.  Only IUNIT(1),...,IUNIT(N) are
  25 C                defined by XGETUA.  The values of IUNIT(N+1),...,
  26 C                IUNIT(5) are not defined (for N .LT. 5) or altered
  27 C                in any way by XGETUA.
  28 C        N     - the number of units to which copies of the
  29 C                error messages are being sent.  N will be in the
  30 C                range from 1 to 5.
  31 C
  32 C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
  33 C                 Error-handling Package, SAND82-0800, Sandia
  34 C                 Laboratories, 1982.
  35 C***ROUTINES CALLED  J4SAVE
  36 C***REVISION HISTORY  (YYMMDD)
  37 C   790801  DATE WRITTEN
  38 C   861211  REVISION DATE from Version 3.2
  39 C   891214  Prologue converted to Version 4.0 format.  (BAB)
  40 C   920501  Reformatted the REFERENCES section.  (WRB)
  41 C***END PROLOGUE  XGETUA
  42       DIMENSION IUNITA(5)
  43 C***FIRST EXECUTABLE STATEMENT  XGETUA
  44       N = J4SAVE(5,0,.FALSE.)
  45       DO 30 I=1,N
  46          INDEX = I+4
  47          IF (I.EQ.1) INDEX = 3
  48          IUNITA(I) = J4SAVE(INDEX,0,.FALSE.)
  49    30 CONTINUE
  50       RETURN
  51       END