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