00001 INTEGER FUNCTION ILATRANS( TRANS ) 00002 * 00003 * -- LAPACK routine (version 3.2) -- 00004 * 00005 * -- April 2009 -- 00006 * 00007 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00008 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00009 * 00010 * .. Scalar Arguments .. 00011 CHARACTER TRANS 00012 * .. 00013 * 00014 * Purpose 00015 * ======= 00016 * 00017 * This subroutine translates from a character string specifying a 00018 * transposition operation to the relevant BLAST-specified integer 00019 * constant. 00020 * 00021 * ILATRANS returns an INTEGER. If ILATRANS < 0, then the input is not 00022 * a character indicating a transposition operator. Otherwise ILATRANS 00023 * returns the constant value corresponding to TRANS. 00024 * 00025 * Arguments 00026 * ========= 00027 * TRANS (input) CHARACTER*1 00028 * Specifies the form of the system of equations: 00029 * = 'N': No transpose 00030 * = 'T': Transpose 00031 * = 'C': Conjugate transpose 00032 * ===================================================================== 00033 * 00034 * .. Parameters .. 00035 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS 00036 PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112, 00037 $ BLAS_CONJ_TRANS = 113 ) 00038 * .. 00039 * .. External Functions .. 00040 LOGICAL LSAME 00041 EXTERNAL LSAME 00042 * .. 00043 * .. Executable Statements .. 00044 IF( LSAME( TRANS, 'N' ) ) THEN 00045 ILATRANS = BLAS_NO_TRANS 00046 ELSE IF( LSAME( TRANS, 'T' ) ) THEN 00047 ILATRANS = BLAS_TRANS 00048 ELSE IF( LSAME( TRANS, 'C' ) ) THEN 00049 ILATRANS = BLAS_CONJ_TRANS 00050 ELSE 00051 ILATRANS = -1 00052 END IF 00053 RETURN 00054 * 00055 * End of ILATRANS 00056 * 00057 END
1.7.2