← Back to branch summary

~ubuntu-branches/ubuntu/lucid/pdl/lucid

« back to all changes in this revision

Viewing changes to Lib/Slatec/slatec/xgetua.f

  • Committer: Bazaar Package Importer
  • Author(s): Ben Gertzfield
  • Date: 2002-04-08 18:47:16 UTC
  • Revision ID: james.westby@ubuntu.com-20020408184716-0hf64dc96kin3htp
Tags: upstream-2.3.2
Import upstream version 2.3.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
Lib/Slatec/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