GNU Octave  9.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
xgetua.f
Go to the documentation of this file.
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
function j4save(IWHICH, IVALUE, ISET)
Definition: j4save.f:3
subroutine xgetua(IUNITA, N)
Definition: xgetua.f:3