1 INTEGER FUNCTION ILAUPLO( UPLO )
2 *
3 * -- LAPACK routine (version 3.2) --
4 *
5 * -- April 2009 --
6 *
7 * -- LAPACK is a software package provided by Univ. of Tennessee, --
8 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9 *
10 * .. Scalar Arguments ..
11 CHARACTER UPLO
12 * ..
13 *
14 * Purpose
15 * =======
16 *
17 * This subroutine translated from a character string specifying a
18 * upper- or lower-triangular matrix to the relevant BLAST-specified
19 * integer constant.
20 *
21 * ILAUPLO returns an INTEGER. If ILAUPLO < 0, then the input is not
22 * a character indicating an upper- or lower-triangular matrix.
23 * Otherwise ILAUPLO returns the constant value corresponding to UPLO.
24 *
25 * Arguments
26 * =========
27 * UPLO (input) CHARACTER
28 * = 'U': A is upper triangular;
29 * = 'L': A is lower triangular.
30 * =====================================================================
31 *
32 * .. Parameters ..
33 INTEGER BLAS_UPPER, BLAS_LOWER
34 PARAMETER ( BLAS_UPPER = 121, BLAS_LOWER = 122 )
35 * ..
36 * .. External Functions ..
37 LOGICAL LSAME
38 EXTERNAL LSAME
39 * ..
40 * .. Executable Statements ..
41 IF( LSAME( UPLO, 'U' ) ) THEN
42 ILAUPLO = BLAS_UPPER
43 ELSE IF( LSAME( UPLO, 'L' ) ) THEN
44 ILAUPLO = BLAS_LOWER
45 ELSE
46 ILAUPLO = -1
47 END IF
48 RETURN
49 *
50 * End of ILAUPLO
51 *
52 END
2 *
3 * -- LAPACK routine (version 3.2) --
4 *
5 * -- April 2009 --
6 *
7 * -- LAPACK is a software package provided by Univ. of Tennessee, --
8 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9 *
10 * .. Scalar Arguments ..
11 CHARACTER UPLO
12 * ..
13 *
14 * Purpose
15 * =======
16 *
17 * This subroutine translated from a character string specifying a
18 * upper- or lower-triangular matrix to the relevant BLAST-specified
19 * integer constant.
20 *
21 * ILAUPLO returns an INTEGER. If ILAUPLO < 0, then the input is not
22 * a character indicating an upper- or lower-triangular matrix.
23 * Otherwise ILAUPLO returns the constant value corresponding to UPLO.
24 *
25 * Arguments
26 * =========
27 * UPLO (input) CHARACTER
28 * = 'U': A is upper triangular;
29 * = 'L': A is lower triangular.
30 * =====================================================================
31 *
32 * .. Parameters ..
33 INTEGER BLAS_UPPER, BLAS_LOWER
34 PARAMETER ( BLAS_UPPER = 121, BLAS_LOWER = 122 )
35 * ..
36 * .. External Functions ..
37 LOGICAL LSAME
38 EXTERNAL LSAME
39 * ..
40 * .. Executable Statements ..
41 IF( LSAME( UPLO, 'U' ) ) THEN
42 ILAUPLO = BLAS_UPPER
43 ELSE IF( LSAME( UPLO, 'L' ) ) THEN
44 ILAUPLO = BLAS_LOWER
45 ELSE
46 ILAUPLO = -1
47 END IF
48 RETURN
49 *
50 * End of ILAUPLO
51 *
52 END