1 INTEGER FUNCTION ILAPREC( PREC )
2 *
3 * -- LAPACK routine (version 3.2.2) --
4 *
5 * -- June 2010 --
6 *
7 * -- LAPACK is a software package provided by Univ. of Tennessee, --
8 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9 *
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
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
2 *
3 * -- LAPACK routine (version 3.2.2) --
4 *
5 * -- June 2010 --
6 *
7 * -- LAPACK is a software package provided by Univ. of Tennessee, --
8 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9 *
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
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