![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ILAUPLO 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download ILAUPLO + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilauplo.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilauplo.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilauplo.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * INTEGER FUNCTION ILAUPLO( UPLO ) 00022 * 00023 * .. Scalar Arguments .. 00024 * CHARACTER UPLO 00025 * .. 00026 * 00027 * 00028 *> \par Purpose: 00029 * ============= 00030 *> 00031 *> \verbatim 00032 *> 00033 *> This subroutine translated from a character string specifying a 00034 *> upper- or lower-triangular matrix to the relevant BLAST-specified 00035 *> integer constant. 00036 *> 00037 *> ILAUPLO returns an INTEGER. If ILAUPLO < 0, then the input is not 00038 *> a character indicating an upper- or lower-triangular matrix. 00039 *> Otherwise ILAUPLO returns the constant value corresponding to UPLO. 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 INTEGER FUNCTION ILAUPLO( UPLO ) 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 CHARACTER UPLO 00068 * .. 00069 * 00070 * ===================================================================== 00071 * 00072 * .. Parameters .. 00073 INTEGER BLAS_UPPER, BLAS_LOWER 00074 PARAMETER ( BLAS_UPPER = 121, BLAS_LOWER = 122 ) 00075 * .. 00076 * .. External Functions .. 00077 LOGICAL LSAME 00078 EXTERNAL LSAME 00079 * .. 00080 * .. Executable Statements .. 00081 IF( LSAME( UPLO, 'U' ) ) THEN 00082 ILAUPLO = BLAS_UPPER 00083 ELSE IF( LSAME( UPLO, 'L' ) ) THEN 00084 ILAUPLO = BLAS_LOWER 00085 ELSE 00086 ILAUPLO = -1 00087 END IF 00088 RETURN 00089 * 00090 * End of ILAUPLO 00091 * 00092 END