01:       INTEGER FUNCTION ILAPREC( PREC )
02: *
03: *  -- LAPACK routine (version 3.2.1)                                    --
04: *
05: *  -- April 2009                                                      --
06: *
07: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
08: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
09: *
10: *     .. Scalar Arguments ..
11:       CHARACTER          PREC
12: *     ..
13: *
14: *  Purpose
15: *  =======
16: *
17: *  This subroutine translated from a character string specifying an
18: *  intermediate precision to the relevant BLAST-specified integer
19: *  constant.
20: *
21: *  ILAPREC returns an INTEGER.  If ILAPREC < 0, then the input is not a
22: *  character indicating a supported intermediate precision.  Otherwise
23: *  ILAPREC returns the constant value corresponding to PREC.
24: *
25: *  Arguments
26: *  =========
27: *  PREC   (input) CHARACTER*1
28: *          Specifies the form of the system of equations:
29: *          = 'S':  Single
30: *          = 'D':  Double
31: *          = 'I':  Indigenous
32: *          = 'X', 'E':  Extra
33: *  =====================================================================
34: *
35: *     .. Parameters ..
36:       INTEGER BLAS_PREC_SINGLE, BLAS_PREC_DOUBLE, BLAS_PREC_INDIGENOUS,
37:      $           BLAS_PREC_EXTRA
38:       PARAMETER ( BLAS_PREC_SINGLE = 211, BLAS_PREC_DOUBLE = 212,
39:      $     BLAS_PREC_INDIGENOUS = 213, BLAS_PREC_EXTRA = 214 )
40: *     ..
41: *     .. External Functions ..
42:       LOGICAL            LSAME
43:       EXTERNAL           LSAME
44: *     ..
45: *     .. Executable Statements ..
46:       IF( LSAME( PREC, 'S' ) ) THEN
47:          ILAPREC = BLAS_PREC_SINGLE
48:       ELSE IF( LSAME( PREC, 'D' ) ) THEN
49:          ILAPREC = BLAS_PREC_DOUBLE
50:       ELSE IF( LSAME( PREC, 'I' ) ) THEN
51:          ILAPREC = BLAS_PREC_INDIGENOUS
52:       ELSE IF( LSAME( PREC, 'X' ) .OR. LSAME( PREC, 'E' ) ) THEN
53:          ILAPREC = BLAS_PREC_EXTRA
54:       ELSE
55:          ILAPREC = -1
56:       END IF
57:       RETURN
58: *
59: *     End of ILAPREC
60: *
61:       END
62: