LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
ilaprec.f
Go to the documentation of this file.
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 *> \ingroup auxOTHERcomputational
55 *
56 * =====================================================================
57  INTEGER FUNCTION ilaprec( PREC )
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 prec
65 * ..
66 *
67 * =====================================================================
68 *
69 * .. Parameters ..
70  INTEGER blas_prec_single, blas_prec_double, blas_prec_indigenous,
71  $ blas_prec_extra
72  parameter( blas_prec_single = 211, blas_prec_double = 212,
73  $ blas_prec_indigenous = 213, blas_prec_extra = 214 )
74 * ..
75 * .. External Functions ..
76  LOGICAL lsame
77  EXTERNAL lsame
78 * ..
79 * .. Executable Statements ..
80  IF( lsame( prec, 'S' ) ) THEN
81  ilaprec = blas_prec_single
82  ELSE IF( lsame( prec, 'D' ) ) THEN
83  ilaprec = blas_prec_double
84  ELSE IF( lsame( prec, 'I' ) ) THEN
85  ilaprec = blas_prec_indigenous
86  ELSE IF( lsame( prec, 'X' ) .OR. lsame( prec, 'E' ) ) THEN
87  ilaprec = blas_prec_extra
88  ELSE
89  ilaprec = -1
90  END IF
91  RETURN
92 *
93 * End of ILAPREC
94 *
95  END
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:53
integer function ilaprec(PREC)
ILAPREC
Definition: ilaprec.f:58