LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
ilauplo.f
Go to the documentation of this file.
1
*> \brief \b ILAUPLO
2
*
3
* =========== DOCUMENTATION ===========
4
*
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
7
*
8
*> \htmlonly
9
*> Download ILAUPLO + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilauplo.f">
11
*> [TGZ]</a>
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilauplo.f">
13
*> [ZIP]</a>
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilauplo.f">
15
*> [TXT]</a>
16
*> \endhtmlonly
17
*
18
* Definition:
19
* ===========
20
*
21
* INTEGER FUNCTION ILAUPLO( UPLO )
22
*
23
* .. Scalar Arguments ..
24
* CHARACTER UPLO
25
* ..
26
*
27
*
28
*> \par Purpose:
29
* =============
30
*>
31
*> \verbatim
32
*>
33
*> This subroutine translated from a character string specifying a
34
*> upper- or lower-triangular matrix to the relevant BLAST-specified
35
*> integer constant.
36
*>
37
*> ILAUPLO returns an INTEGER. If ILAUPLO < 0, then the input is not
38
*> a character indicating an upper- or lower-triangular matrix.
39
*> Otherwise ILAUPLO returns the constant value corresponding to UPLO.
40
*> \endverbatim
41
*
42
* Arguments:
43
* ==========
44
*
45
*
46
* Authors:
47
* ========
48
*
49
*> \author Univ. of Tennessee
50
*> \author Univ. of California Berkeley
51
*> \author Univ. of Colorado Denver
52
*> \author NAG Ltd.
53
*
54
*> \date December 2016
55
*
56
*> \ingroup auxOTHERcomputational
57
*
58
* =====================================================================
59
INTEGER
FUNCTION
ilauplo
( UPLO )
60
*
61
* -- LAPACK computational routine (version 3.7.0) --
62
* -- LAPACK is a software package provided by Univ. of Tennessee, --
63
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64
* December 2016
65
*
66
* .. Scalar Arguments ..
67
CHARACTER
UPLO
68
* ..
69
*
70
* =====================================================================
71
*
72
* .. Parameters ..
73
INTEGER
BLAS_UPPER, BLAS_LOWER
74
parameter( blas_upper = 121, blas_lower = 122 )
75
* ..
76
* .. External Functions ..
77
LOGICAL
LSAME
78
EXTERNAL
lsame
79
* ..
80
* .. Executable Statements ..
81
IF
( lsame( uplo,
'U'
) )
THEN
82
ilauplo
= blas_upper
83
ELSE
IF
( lsame( uplo,
'L'
) )
THEN
84
ilauplo
= blas_lower
85
ELSE
86
ilauplo
= -1
87
END IF
88
RETURN
89
*
90
* End of ILAUPLO
91
*
92
END
ilauplo
integer function ilauplo(UPLO)
ILAUPLO
Definition:
ilauplo.f:60
SRC
ilauplo.f
Generated on Fri Dec 23 2016 15:28:27 for LAPACK by
1.8.10