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

November 2011

Definition at line 60 of file chla_transtype.f.

*
*  -- LAPACK computational routine (version 3.4.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2011
*
*     .. Scalar Arguments ..
      INTEGER            trans
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER blas_no_trans, blas_trans, blas_conj_trans
      parameter( blas_no_trans = 111, blas_trans = 112,
     $     blas_conj_trans = 113 )
*     ..
*     .. Executable Statements ..
      IF( trans.EQ.blas_no_trans ) THEN
         chla_transtype = 'N'
      ELSE IF( trans.EQ.blas_trans ) THEN
         chla_transtype = 'T'
      ELSE IF( trans.EQ.blas_conj_trans ) THEN
         chla_transtype = 'C'
      ELSE
         chla_transtype = 'X'
      END IF
      RETURN
*
*     End of CHLA_TRANSTYPE
*

Here is the caller graph for this function: