![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b CHLA_TRANSTYPE 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download CHLA_TRANSTYPE + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chla_transtype.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chla_transtype.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chla_transtype.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) 00022 * 00023 * .. Scalar Arguments .. 00024 * INTEGER TRANS 00025 * .. 00026 * 00027 * 00028 *> \par Purpose: 00029 * ============= 00030 *> 00031 *> \verbatim 00032 *> 00033 *> This subroutine translates from a BLAST-specified integer constant to 00034 *> the character string specifying a transposition operation. 00035 *> 00036 *> CHLA_TRANSTYPE returns an CHARACTER*1. If CHLA_TRANSTYPE is 'X', 00037 *> then input is not an integer indicating a transposition operator. 00038 *> Otherwise CHLA_TRANSTYPE returns the constant value corresponding to 00039 *> TRANS. 00040 *> \endverbatim 00041 * 00042 * Arguments: 00043 * ========== 00044 * 00045 * 00046 * Authors: 00047 * ======== 00048 * 00049 *> \author Univ. of Tennessee 00050 *> \author Univ. of California Berkeley 00051 *> \author Univ. of Colorado Denver 00052 *> \author NAG Ltd. 00053 * 00054 *> \date November 2011 00055 * 00056 *> \ingroup auxOTHERcomputational 00057 * 00058 * ===================================================================== 00059 CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) 00060 * 00061 * -- LAPACK computational routine (version 3.4.0) -- 00062 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00063 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00064 * November 2011 00065 * 00066 * .. Scalar Arguments .. 00067 INTEGER TRANS 00068 * .. 00069 * 00070 * ===================================================================== 00071 * 00072 * .. Parameters .. 00073 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS 00074 PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112, 00075 $ BLAS_CONJ_TRANS = 113 ) 00076 * .. 00077 * .. Executable Statements .. 00078 IF( TRANS.EQ.BLAS_NO_TRANS ) THEN 00079 CHLA_TRANSTYPE = 'N' 00080 ELSE IF( TRANS.EQ.BLAS_TRANS ) THEN 00081 CHLA_TRANSTYPE = 'T' 00082 ELSE IF( TRANS.EQ.BLAS_CONJ_TRANS ) THEN 00083 CHLA_TRANSTYPE = 'C' 00084 ELSE 00085 CHLA_TRANSTYPE = 'X' 00086 END IF 00087 RETURN 00088 * 00089 * End of CHLA_TRANSTYPE 00090 * 00091 END