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.

*
*  -- LAPACK computational routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      CHARACTER          UPLO
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER BLAS_UPPER, BLAS_LOWER
      parameter( blas_upper = 121, blas_lower = 122 )
*     ..
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           lsame
*     ..
*     .. Executable Statements ..
      IF( lsame( uplo, 'U' ) ) THEN
         ilauplo = blas_upper
      ELSE IF( lsame( uplo, 'L' ) ) THEN
         ilauplo = blas_lower
      ELSE
         ilauplo = -1
      END IF
      RETURN
*
*     End of ILAUPLO
*

Here is the call graph for this function:

Here is the caller graph for this function: