1 INTEGER FUNCTION ILATRANS( TRANS )
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 TRANS
12 * ..
13 *
14 * Purpose
15 * =======
16 *
17 * This subroutine translates from a character string specifying a
18 * transposition operation to the relevant BLAST-specified integer
19 * constant.
20 *
21 * ILATRANS returns an INTEGER. If ILATRANS < 0, then the input is not
22 * a character indicating a transposition operator. Otherwise ILATRANS
23 * returns the constant value corresponding to TRANS.
24 *
25 * Arguments
26 * =========
27 * TRANS (input) CHARACTER*1
28 * Specifies the form of the system of equations:
29 * = 'N': No transpose
30 * = 'T': Transpose
31 * = 'C': Conjugate transpose
32 * =====================================================================
33 *
34 * .. Parameters ..
35 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
36 PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
37 $ BLAS_CONJ_TRANS = 113 )
38 * ..
39 * .. External Functions ..
40 LOGICAL LSAME
41 EXTERNAL LSAME
42 * ..
43 * .. Executable Statements ..
44 IF( LSAME( TRANS, 'N' ) ) THEN
45 ILATRANS = BLAS_NO_TRANS
46 ELSE IF( LSAME( TRANS, 'T' ) ) THEN
47 ILATRANS = BLAS_TRANS
48 ELSE IF( LSAME( TRANS, 'C' ) ) THEN
49 ILATRANS = BLAS_CONJ_TRANS
50 ELSE
51 ILATRANS = -1
52 END IF
53 RETURN
54 *
55 * End of ILATRANS
56 *
57 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 TRANS
12 * ..
13 *
14 * Purpose
15 * =======
16 *
17 * This subroutine translates from a character string specifying a
18 * transposition operation to the relevant BLAST-specified integer
19 * constant.
20 *
21 * ILATRANS returns an INTEGER. If ILATRANS < 0, then the input is not
22 * a character indicating a transposition operator. Otherwise ILATRANS
23 * returns the constant value corresponding to TRANS.
24 *
25 * Arguments
26 * =========
27 * TRANS (input) CHARACTER*1
28 * Specifies the form of the system of equations:
29 * = 'N': No transpose
30 * = 'T': Transpose
31 * = 'C': Conjugate transpose
32 * =====================================================================
33 *
34 * .. Parameters ..
35 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
36 PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
37 $ BLAS_CONJ_TRANS = 113 )
38 * ..
39 * .. External Functions ..
40 LOGICAL LSAME
41 EXTERNAL LSAME
42 * ..
43 * .. Executable Statements ..
44 IF( LSAME( TRANS, 'N' ) ) THEN
45 ILATRANS = BLAS_NO_TRANS
46 ELSE IF( LSAME( TRANS, 'T' ) ) THEN
47 ILATRANS = BLAS_TRANS
48 ELSE IF( LSAME( TRANS, 'C' ) ) THEN
49 ILATRANS = BLAS_CONJ_TRANS
50 ELSE
51 ILATRANS = -1
52 END IF
53 RETURN
54 *
55 * End of ILATRANS
56 *
57 END