Annotation of rpl/lapack/lapack/ilatrans.f, revision 1.10
1.1 bertrand 1: *> \brief \b ILATRANS
2: *
3: * =========== DOCUMENTATION ===========
4: *
1.7 bertrand 5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
1.1 bertrand 7: *
8: *> \htmlonly
1.7 bertrand 9: *> Download ILATRANS + dependencies
10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilatrans.f">
11: *> [TGZ]</a>
12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilatrans.f">
13: *> [ZIP]</a>
14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilatrans.f">
1.1 bertrand 15: *> [TXT]</a>
1.7 bertrand 16: *> \endhtmlonly
1.1 bertrand 17: *
18: * Definition:
19: * ===========
20: *
21: * INTEGER FUNCTION ILATRANS( TRANS )
1.7 bertrand 22: *
1.1 bertrand 23: * .. Scalar Arguments ..
24: * CHARACTER TRANS
25: * ..
1.7 bertrand 26: *
1.1 bertrand 27: *
28: *> \par Purpose:
29: * =============
30: *>
31: *> \verbatim
32: *>
33: *> This subroutine translates from a character string specifying a
34: *> transposition operation to the relevant BLAST-specified integer
35: *> constant.
36: *>
37: *> ILATRANS returns an INTEGER. If ILATRANS < 0, then the input is not
38: *> a character indicating a transposition operator. Otherwise ILATRANS
39: *> returns the constant value corresponding to TRANS.
40: *> \endverbatim
41: *
42: * Arguments:
43: * ==========
44: *
45: *
46: * Authors:
47: * ========
48: *
1.7 bertrand 49: *> \author Univ. of Tennessee
50: *> \author Univ. of California Berkeley
51: *> \author Univ. of Colorado Denver
52: *> \author NAG Ltd.
1.1 bertrand 53: *
54: *> \ingroup auxOTHERcomputational
55: *
56: * =====================================================================
57: INTEGER FUNCTION ILATRANS( TRANS )
58: *
1.10 ! bertrand 59: * -- LAPACK computational routine --
1.1 bertrand 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 TRANS
65: * ..
66: *
67: * =====================================================================
68: *
69: * .. Parameters ..
70: INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
71: PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
72: $ BLAS_CONJ_TRANS = 113 )
73: * ..
74: * .. External Functions ..
75: LOGICAL LSAME
76: EXTERNAL LSAME
77: * ..
78: * .. Executable Statements ..
79: IF( LSAME( TRANS, 'N' ) ) THEN
80: ILATRANS = BLAS_NO_TRANS
81: ELSE IF( LSAME( TRANS, 'T' ) ) THEN
82: ILATRANS = BLAS_TRANS
83: ELSE IF( LSAME( TRANS, 'C' ) ) THEN
84: ILATRANS = BLAS_CONJ_TRANS
85: ELSE
86: ILATRANS = -1
87: END IF
88: RETURN
89: *
90: * End of ILATRANS
91: *
92: END
CVSweb interface <joel.bertrand@systella.fr>