Go to the documentation of this file.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
