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 55 of file chla_transtype.f.

*
*  -- LAPACK computational routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. 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 call graph for this function:

Here is the caller graph for this function: