01:       INTEGER FUNCTION ILATRANS( TRANS )
02: *
03: *  -- LAPACK routine (version 3.2) --
04: *
05: *  -- April 2009                                                      --
06: *
07: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
08: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
09: *
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
58: