LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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.
Date
November 2011

Definition at line 60 of file ilauplo.f.

60 *
61 * -- LAPACK computational routine (version 3.4.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 * November 2011
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 *
integer function ilauplo(UPLO)
ILAUPLO
Definition: ilauplo.f:60
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55

Here is the caller graph for this function: