LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches
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 la_transtype
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