Annotation of rpl/lapack/lapack/ilauplo.f, revision 1.7
1.1 bertrand 1: *> \brief \b ILAUPLO
2: *
3: * =========== DOCUMENTATION ===========
4: *
1.7 ! bertrand 5: * Online html documentation available at
! 6: * http://www.netlib.org/lapack/explore-html/
1.1 bertrand 7: *
8: *> \htmlonly
1.7 ! bertrand 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">
1.1 bertrand 15: *> [TXT]</a>
1.7 ! bertrand 16: *> \endhtmlonly
1.1 bertrand 17: *
18: * Definition:
19: * ===========
20: *
21: * INTEGER FUNCTION ILAUPLO( UPLO )
1.7 ! bertrand 22: *
1.1 bertrand 23: * .. Scalar Arguments ..
24: * CHARACTER UPLO
25: * ..
1.7 ! bertrand 26: *
1.1 bertrand 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: *
1.7 ! bertrand 49: *> \author Univ. of Tennessee
! 50: *> \author Univ. of California Berkeley
! 51: *> \author Univ. of Colorado Denver
! 52: *> \author NAG Ltd.
1.1 bertrand 53: *
1.7 ! bertrand 54: *> \date December 2016
1.1 bertrand 55: *
56: *> \ingroup auxOTHERcomputational
57: *
58: * =====================================================================
59: INTEGER FUNCTION ILAUPLO( UPLO )
60: *
1.7 ! bertrand 61: * -- LAPACK computational routine (version 3.7.0) --
1.1 bertrand 62: * -- LAPACK is a software package provided by Univ. of Tennessee, --
63: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.7 ! bertrand 64: * December 2016
1.1 bertrand 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
CVSweb interface <joel.bertrand@systella.fr>