1*> \brief \b ILADIAG 2* 3* =========== DOCUMENTATION =========== 4* 5* Online html documentation available at 6* http://www.netlib.org/lapack/explore-html/ 7* 8*> \htmlonly 9*> Download ILADIAG + dependencies 10*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/iladiag.f"> 11*> [TGZ]</a> 12*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/iladiag.f"> 13*> [ZIP]</a> 14*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/iladiag.f"> 15*> [TXT]</a> 16*> \endhtmlonly 17* 18* Definition: 19* =========== 20* 21* INTEGER FUNCTION ILADIAG( DIAG ) 22* 23* .. Scalar Arguments .. 24* CHARACTER DIAG 25* .. 26* 27* 28*> \par Purpose: 29* ============= 30*> 31*> \verbatim 32*> 33*> This subroutine translated from a character string specifying if a 34*> matrix has unit diagonal or not to the relevant BLAST-specified 35*> integer constant. 36*> 37*> ILADIAG returns an INTEGER. If ILADIAG < 0, then the input is not a 38*> character indicating a unit or non-unit diagonal. Otherwise ILADIAG 39*> returns the constant value corresponding to DIAG. 40*> \endverbatim 41* 42* Arguments: 43* ========== 44* 45* 46* Authors: 47* ======== 48* 49*> \author Univ. of Tennessee 50*> \author Univ. of California Berkeley 51*> \author Univ. of Colorado Denver 52*> \author NAG Ltd. 53* 54*> \ingroup auxOTHERcomputational 55* 56* ===================================================================== 57 INTEGER FUNCTION ILADIAG( DIAG ) 58* 59* -- LAPACK computational routine -- 60* -- LAPACK is a software package provided by Univ. of Tennessee, -- 61* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 62* 63* .. Scalar Arguments .. 64 CHARACTER DIAG 65* .. 66* 67* ===================================================================== 68* 69* .. Parameters .. 70 INTEGER BLAS_NON_UNIT_DIAG, BLAS_UNIT_DIAG 71 PARAMETER ( BLAS_NON_UNIT_DIAG = 131, BLAS_UNIT_DIAG = 132 ) 72* .. 73* .. External Functions .. 74 LOGICAL LSAME 75 EXTERNAL LSAME 76* .. 77* .. Executable Statements .. 78 IF( LSAME( DIAG, 'N' ) ) THEN 79 ILADIAG = BLAS_NON_UNIT_DIAG 80 ELSE IF( LSAME( DIAG, 'U' ) ) THEN 81 ILADIAG = BLAS_UNIT_DIAG 82 ELSE 83 ILADIAG = -1 84 END IF 85 RETURN 86* 87* End of ILADIAG 88* 89 END 90