LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 integer function ilaprec ( character PREC )

ILAPREC

Purpose:
``` This subroutine translated from a character string specifying an
intermediate precision to the relevant BLAST-specified integer
constant.

ILAPREC returns an INTEGER.  If ILAPREC < 0, then the input is not a
character indicating a supported intermediate precision.  Otherwise
ILAPREC returns the constant value corresponding to PREC.```
Date
November 2011

Definition at line 60 of file ilaprec.f.

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 *
integer function ilaprec(PREC)
ILAPREC
Definition: ilaprec.f:60
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55

Here is the caller graph for this function: