diff options
author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
tree | a386cad907bcaefd6893535c31d67ec9468e693e /SRC/ilauplo.f | |
parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip |
Diffstat (limited to 'SRC/ilauplo.f')
-rw-r--r-- | SRC/ilauplo.f | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/SRC/ilauplo.f b/SRC/ilauplo.f new file mode 100644 index 00000000..6085c927 --- /dev/null +++ b/SRC/ilauplo.f @@ -0,0 +1,48 @@ + INTEGER FUNCTION ILAUPLO( UPLO ) +* +* -- LAPACK routine (version 3.2) -- +* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. +* October 2008 +* .. Scalar Arguments .. + CHARACTER UPLO +* .. +* +* 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. +* +* Arguments +* ========= +* UPLO (input) CHARACTER +* = 'U': A is upper triangular; +* = 'L': A is lower triangular. +* ===================================================================== +* +* .. 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 +* + END |