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