LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
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*> Download CHLA_TRANSTYPE + dependencies
9*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chla_transtype.f">
10*> [TGZ]</a>
11*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chla_transtype.f">
12*> [ZIP]</a>
13*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chla_transtype.f">
14*> [TXT]</a>
15*
16* Definition:
17* ===========
18*
19* CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS )
20*
21* .. Scalar Arguments ..
22* INTEGER TRANS
23* ..
24*
25*
26*> \par Purpose:
27* =============
28*>
29*> \verbatim
30*>
31*> This subroutine translates from a BLAST-specified integer constant to
32*> the character string specifying a transposition operation.
33*>
34*> CHLA_TRANSTYPE returns an CHARACTER*1. If CHLA_TRANSTYPE is 'X',
35*> then input is not an integer indicating a transposition operator.
36*> Otherwise CHLA_TRANSTYPE returns the constant value corresponding to
37*> TRANS.
38*> \endverbatim
39*
40* Arguments:
41* ==========
42*
43*
44* Authors:
45* ========
46*
47*> \author Univ. of Tennessee
48*> \author Univ. of California Berkeley
49*> \author Univ. of Colorado Denver
50*> \author NAG Ltd.
51*
52*> \ingroup la_transtype
53*
54* =====================================================================
55 CHARACTER*1 FUNCTION chla_transtype( TRANS )
56*
57* -- LAPACK computational routine --
58* -- LAPACK is a software package provided by Univ. of Tennessee, --
59* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
60*
61* .. Scalar Arguments ..
62 INTEGER trans
63* ..
64*
65* =====================================================================
66*
67* .. Parameters ..
68 INTEGER blas_no_trans, blas_trans, blas_conj_trans
69 parameter( blas_no_trans = 111, blas_trans = 112,
70 $ blas_conj_trans = 113 )
71* ..
72* .. Executable Statements ..
73 IF( trans.EQ.blas_no_trans ) THEN
74 chla_transtype = 'N'
75 ELSE IF( trans.EQ.blas_trans ) THEN
76 chla_transtype = 'T'
77 ELSE IF( trans.EQ.blas_conj_trans ) THEN
78 chla_transtype = 'C'
79 ELSE
80 chla_transtype = 'X'
81 END IF
82 RETURN
83*
84* End of CHLA_TRANSTYPE
85*
86 END
character *1 function chla_transtype(trans)
CHLA_TRANSTYPE