Annotation of rpl/lapack/lapack/ilaprec.f, revision 1.4
1.1 bertrand 1: *> \brief \b ILAPREC
2: *
3: * =========== DOCUMENTATION ===========
4: *
5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
7: *
8: *> \htmlonly
9: *> Download ILAPREC + dependencies
10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilaprec.f">
11: *> [TGZ]</a>
12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilaprec.f">
13: *> [ZIP]</a>
14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilaprec.f">
15: *> [TXT]</a>
16: *> \endhtmlonly
17: *
18: * Definition:
19: * ===========
20: *
21: * INTEGER FUNCTION ILAPREC( PREC )
22: *
23: * .. Scalar Arguments ..
24: * CHARACTER PREC
25: * ..
26: *
27: *
28: *> \par Purpose:
29: * =============
30: *>
31: *> \verbatim
32: *>
33: *> This subroutine translated from a character string specifying an
34: *> intermediate precision to the relevant BLAST-specified integer
35: *> constant.
36: *>
37: *> ILAPREC returns an INTEGER. If ILAPREC < 0, then the input is not a
38: *> character indicating a supported intermediate precision. Otherwise
39: *> ILAPREC returns the constant value corresponding to PREC.
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: *> \date November 2011
55: *
56: *> \ingroup auxOTHERcomputational
57: *
58: * =====================================================================
59: INTEGER FUNCTION ILAPREC( PREC )
60: *
61: * -- LAPACK computational routine (version 3.4.0) --
62: * -- LAPACK is a software package provided by Univ. of Tennessee, --
63: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64: * November 2011
65: *
66: * .. Scalar Arguments ..
67: CHARACTER PREC
68: * ..
69: *
70: * =====================================================================
71: *
72: * .. Parameters ..
73: INTEGER BLAS_PREC_SINGLE, BLAS_PREC_DOUBLE, BLAS_PREC_INDIGENOUS,
74: $ BLAS_PREC_EXTRA
75: PARAMETER ( BLAS_PREC_SINGLE = 211, BLAS_PREC_DOUBLE = 212,
76: $ BLAS_PREC_INDIGENOUS = 213, BLAS_PREC_EXTRA = 214 )
77: * ..
78: * .. External Functions ..
79: LOGICAL LSAME
80: EXTERNAL LSAME
81: * ..
82: * .. Executable Statements ..
83: IF( LSAME( PREC, 'S' ) ) THEN
84: ILAPREC = BLAS_PREC_SINGLE
85: ELSE IF( LSAME( PREC, 'D' ) ) THEN
86: ILAPREC = BLAS_PREC_DOUBLE
87: ELSE IF( LSAME( PREC, 'I' ) ) THEN
88: ILAPREC = BLAS_PREC_INDIGENOUS
89: ELSE IF( LSAME( PREC, 'X' ) .OR. LSAME( PREC, 'E' ) ) THEN
90: ILAPREC = BLAS_PREC_EXTRA
91: ELSE
92: ILAPREC = -1
93: END IF
94: RETURN
95: *
96: * End of ILAPREC
97: *
98: END
CVSweb interface <joel.bertrand@systella.fr>