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