LAPACK  3.9.0 LAPACK: Linear Algebra PACKage
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
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
lsame
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55