integer function ilatrans

(

character

TRANS

)

ILATRANS

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

Purpose:

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

 ILATRANS returns an INTEGER.  If ILATRANS < 0, then the input is not
 a character indicating a transposition operator.  Otherwise ILATRANS
 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 ilatrans.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 ..
      CHARACTER          trans
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER blas_no_trans, blas_trans, blas_conj_trans
      parameter( blas_no_trans = 111, blas_trans = 112,
     $     blas_conj_trans = 113 )
*     ..
*     .. External Functions ..
      LOGICAL            lsame
      EXTERNAL           lsame
*     ..
*     .. Executable Statements ..
      IF( lsame( trans, 'N' ) ) THEN
         ilatrans = blas_no_trans
      ELSE IF( lsame( trans, 'T' ) ) THEN
         ilatrans = blas_trans
      ELSE IF( lsame( trans, 'C' ) ) THEN
         ilatrans = blas_conj_trans
      ELSE
         ilatrans = -1
      END IF
      RETURN
*
*     End of ILATRANS
*

Here is the caller graph for this function: