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