1 CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS )
2 *
3 * -- LAPACK routine (version 3.2.2) --
4 * -- LAPACK is a software package provided by Univ. of Tennessee, --
5 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6 * October 2008
7 *
8 * .. Scalar Arguments ..
9 INTEGER TRANS
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * This subroutine translates from a BLAST-specified integer constant to
16 * the character string specifying a transposition operation.
17 *
18 * CHLA_TRANSTYPE returns an CHARACTER*1. If CHLA_TRANSTYPE is 'X',
19 * then input is not an integer indicating a transposition operator.
20 * Otherwise CHLA_TRANSTYPE returns the constant value corresponding to
21 * TRANS.
22 *
23 * Arguments
24 * =========
25 * TRANS (input) INTEGER
26 * Specifies the form of the system of equations:
27 * = BLAS_NO_TRANS = 111 : No Transpose
28 * = BLAS_TRANS = 112 : Transpose
29 * = BLAS_CONJ_TRANS = 113 : Conjugate Transpose
30 * =====================================================================
31 *
32 * .. Parameters ..
33 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
34 PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
35 $ BLAS_CONJ_TRANS = 113 )
36 * ..
37 * .. Executable Statements ..
38 IF( TRANS.EQ.BLAS_NO_TRANS ) THEN
39 CHLA_TRANSTYPE = 'N'
40 ELSE IF( TRANS.EQ.BLAS_TRANS ) THEN
41 CHLA_TRANSTYPE = 'T'
42 ELSE IF( TRANS.EQ.BLAS_CONJ_TRANS ) THEN
43 CHLA_TRANSTYPE = 'C'
44 ELSE
45 CHLA_TRANSTYPE = 'X'
46 END IF
47 RETURN
48 *
49 * End of CHLA_TRANSTYPE
50 *
51 END
2 *
3 * -- LAPACK routine (version 3.2.2) --
4 * -- LAPACK is a software package provided by Univ. of Tennessee, --
5 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6 * October 2008
7 *
8 * .. Scalar Arguments ..
9 INTEGER TRANS
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * This subroutine translates from a BLAST-specified integer constant to
16 * the character string specifying a transposition operation.
17 *
18 * CHLA_TRANSTYPE returns an CHARACTER*1. If CHLA_TRANSTYPE is 'X',
19 * then input is not an integer indicating a transposition operator.
20 * Otherwise CHLA_TRANSTYPE returns the constant value corresponding to
21 * TRANS.
22 *
23 * Arguments
24 * =========
25 * TRANS (input) INTEGER
26 * Specifies the form of the system of equations:
27 * = BLAS_NO_TRANS = 111 : No Transpose
28 * = BLAS_TRANS = 112 : Transpose
29 * = BLAS_CONJ_TRANS = 113 : Conjugate Transpose
30 * =====================================================================
31 *
32 * .. Parameters ..
33 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
34 PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
35 $ BLAS_CONJ_TRANS = 113 )
36 * ..
37 * .. Executable Statements ..
38 IF( TRANS.EQ.BLAS_NO_TRANS ) THEN
39 CHLA_TRANSTYPE = 'N'
40 ELSE IF( TRANS.EQ.BLAS_TRANS ) THEN
41 CHLA_TRANSTYPE = 'T'
42 ELSE IF( TRANS.EQ.BLAS_CONJ_TRANS ) THEN
43 CHLA_TRANSTYPE = 'C'
44 ELSE
45 CHLA_TRANSTYPE = 'X'
46 END IF
47 RETURN
48 *
49 * End of CHLA_TRANSTYPE
50 *
51 END