LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ ilauplo()

integer function ilauplo ( character  UPLO)

ILAUPLO

Download ILAUPLO + dependencies [TGZ] [ZIP] [TXT]

Purpose:
 This subroutine translated from a character string specifying a
 upper- or lower-triangular matrix to the relevant BLAST-specified
 integer constant.

 ILAUPLO returns an INTEGER.  If ILAUPLO < 0, then the input is not
 a character indicating an upper- or lower-triangular matrix.
 Otherwise ILAUPLO returns the constant value corresponding to UPLO.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 57 of file ilauplo.f.

58 *
59 * -- LAPACK computational routine --
60 * -- LAPACK is a software package provided by Univ. of Tennessee, --
61 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
62 *
63 * .. Scalar Arguments ..
64  CHARACTER UPLO
65 * ..
66 *
67 * =====================================================================
68 *
69 * .. Parameters ..
70  INTEGER BLAS_UPPER, BLAS_LOWER
71  parameter( blas_upper = 121, blas_lower = 122 )
72 * ..
73 * .. External Functions ..
74  LOGICAL LSAME
75  EXTERNAL lsame
76 * ..
77 * .. Executable Statements ..
78  IF( lsame( uplo, 'U' ) ) THEN
79  ilauplo = blas_upper
80  ELSE IF( lsame( uplo, 'L' ) ) THEN
81  ilauplo = blas_lower
82  ELSE
83  ilauplo = -1
84  END IF
85  RETURN
86 *
87 * End of ILAUPLO
88 *
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:53
integer function ilauplo(UPLO)
ILAUPLO
Definition: ilauplo.f:58
Here is the call graph for this function:
Here is the caller graph for this function: