GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
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