LAPACK  3.10.1 LAPACK: Linear Algebra PACKage
chla_transtype.f
Go to the documentation of this file.
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
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 *> \ingroup auxOTHERcomputational
55 *
56 * =====================================================================
57  CHARACTER*1 FUNCTION chla_transtype( TRANS )
58 *
59 * -- LAPACK computational routine --
60 * -- LAPACK is a software package provided by Univ. of Tennessee, --
61 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
62 *
63 * .. Scalar Arguments ..
64  INTEGER trans
65 * ..
66 *
67 * =====================================================================
68 *
69 * .. Parameters ..
70  INTEGER blas_no_trans, blas_trans, blas_conj_trans
71  parameter( blas_no_trans = 111, blas_trans = 112,
72  \$ blas_conj_trans = 113 )
73 * ..
74 * .. Executable Statements ..
75  IF( trans.EQ.blas_no_trans ) THEN
76  chla_transtype = 'N'
77  ELSE IF( trans.EQ.blas_trans ) THEN
78  chla_transtype = 'T'
79  ELSE IF( trans.EQ.blas_conj_trans ) THEN
80  chla_transtype = 'C'
81  ELSE
82  chla_transtype = 'X'
83  END IF
84  RETURN
85 *
86 * End of CHLA_TRANSTYPE
87 *
88  END
character *1 function chla_transtype(TRANS)
CHLA_TRANSTYPE