|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
INTEGER FUNCTION ILATRANS( TRANS )
* * -- LAPACK routine (version 3.2) -- * * -- April 2009 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER TRANS * .. * * 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. * * Arguments * ========= * TRANS (input) CHARACTER*1 * Specifies the form of the system of equations: * = 'N': No transpose * = 'T': Transpose * = 'C': Conjugate transpose * ===================================================================== * * .. 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 * END |