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
CVSweb interface <joel.bertrand@systella.fr>