d6/d14/chla__transtype_8f_source.html

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