LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ chla_transtype()

character*1 function chla_transtype ( integer  TRANS)

CHLA_TRANSTYPE

Download CHLA_TRANSTYPE + dependencies [TGZ] [ZIP] [TXT]

Purpose:
 This subroutine translates from a BLAST-specified integer constant to
 the character string specifying a transposition operation.

 CHLA_TRANSTYPE returns an CHARACTER*1.  If CHLA_TRANSTYPE is 'X',
 then input is not an integer indicating a transposition operator.
 Otherwise CHLA_TRANSTYPE returns the constant value corresponding to
 TRANS.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 57 of file chla_transtype.f.

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 *
character *1 function chla_transtype(TRANS)
CHLA_TRANSTYPE
Here is the caller graph for this function: