1: *> \brief \b CHLA_TRANSTYPE
2: *
3: * =========== DOCUMENTATION ===========
4: *
5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
7: *
8: *> \htmlonly
9: *> Download CHLA_TRANSTYPE + dependencies
10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chla_transtype.f">
11: *> [TGZ]</a>
12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chla_transtype.f">
13: *> [ZIP]</a>
14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chla_transtype.f">
15: *> [TXT]</a>
16: *> \endhtmlonly
17: *
18: * Definition:
19: * ===========
20: *
21: * CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS )
22: *
23: * .. Scalar Arguments ..
24: * INTEGER TRANS
25: * ..
26: *
27: *
28: *> \par Purpose:
29: * =============
30: *>
31: *> \verbatim
32: *>
33: *> This subroutine translates from a BLAST-specified integer constant to
34: *> the character string specifying a transposition operation.
35: *>
36: *> CHLA_TRANSTYPE returns an CHARACTER*1. If CHLA_TRANSTYPE is 'X',
37: *> then input is not an integer indicating a transposition operator.
38: *> Otherwise CHLA_TRANSTYPE returns the constant value corresponding to
39: *> TRANS.
40: *> \endverbatim
41: *
42: * Arguments:
43: * ==========
44: *
45: *
46: * Authors:
47: * ========
48: *
49: *> \author Univ. of Tennessee
50: *> \author Univ. of California Berkeley
51: *> \author Univ. of Colorado Denver
52: *> \author NAG Ltd.
53: *
54: *> \date December 2016
55: *
56: *> \ingroup auxOTHERcomputational
57: *
58: * =====================================================================
59: CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS )
60: *
61: * -- LAPACK computational routine (version 3.7.0) --
62: * -- LAPACK is a software package provided by Univ. of Tennessee, --
63: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64: * December 2016
65: *
66: * .. Scalar Arguments ..
67: INTEGER TRANS
68: * ..
69: *
70: * =====================================================================
71: *
72: * .. Parameters ..
73: INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
74: PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
75: $ BLAS_CONJ_TRANS = 113 )
76: * ..
77: * .. Executable Statements ..
78: IF( TRANS.EQ.BLAS_NO_TRANS ) THEN
79: CHLA_TRANSTYPE = 'N'
80: ELSE IF( TRANS.EQ.BLAS_TRANS ) THEN
81: CHLA_TRANSTYPE = 'T'
82: ELSE IF( TRANS.EQ.BLAS_CONJ_TRANS ) THEN
83: CHLA_TRANSTYPE = 'C'
84: ELSE
85: CHLA_TRANSTYPE = 'X'
86: END IF
87: RETURN
88: *
89: * End of CHLA_TRANSTYPE
90: *
91: END
CVSweb interface <joel.bertrand@systella.fr>