LAPACK  3.8.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.
Date
December 2016

Definition at line 60 of file chla_transtype.f.

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