1*> \brief \b ILATRANS 2* 3* =========== DOCUMENTATION =========== 4* 5* Online html documentation available at 6* http://www.netlib.org/lapack/explore-html/ 7* 8*> \htmlonly 9*> Download ILATRANS + dependencies 10*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilatrans.f"> 11*> [TGZ]</a> 12*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilatrans.f"> 13*> [ZIP]</a> 14*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilatrans.f"> 15*> [TXT]</a> 16*> \endhtmlonly 17* 18* Definition: 19* =========== 20* 21* INTEGER FUNCTION ILATRANS( TRANS ) 22* 23* .. Scalar Arguments .. 24* CHARACTER TRANS 25* .. 26* 27* 28*> \par Purpose: 29* ============= 30*> 31*> \verbatim 32*> 33*> This subroutine translates from a character string specifying a 34*> transposition operation to the relevant BLAST-specified integer 35*> constant. 36*> 37*> ILATRANS returns an INTEGER. If ILATRANS < 0, then the input is not 38*> a character indicating a transposition operator. Otherwise ILATRANS 39*> returns the constant value corresponding to TRANS. 40*> \endverbatim 41* 42* Arguments: 43* ========== 44* 45* 46* Authors: 47* ======== 48* 49*> \author Univ. of Tennessee 50*> \author Univ. of California Berkeley 51*> \author Univ. of Colorado Denver 52*> \author NAG Ltd. 53* 54*> \ingroup auxOTHERcomputational 55* 56* ===================================================================== 57 INTEGER FUNCTION ILATRANS( TRANS ) 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 CHARACTER 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* .. External Functions .. 75 LOGICAL LSAME 76 EXTERNAL LSAME 77* .. 78* .. Executable Statements .. 79 IF( LSAME( TRANS, 'N' ) ) THEN 80 ILATRANS = BLAS_NO_TRANS 81 ELSE IF( LSAME( TRANS, 'T' ) ) THEN 82 ILATRANS = BLAS_TRANS 83 ELSE IF( LSAME( TRANS, 'C' ) ) THEN 84 ILATRANS = BLAS_CONJ_TRANS 85 ELSE 86 ILATRANS = -1 87 END IF 88 RETURN 89* 90* End of ILATRANS 91* 92 END 93