LAPACK  3.10.1 LAPACK: Linear Algebra PACKage

## ◆ ilaprec()

 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.```

Definition at line 57 of file ilaprec.f.

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 *
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:53
integer function ilaprec(PREC)
ILAPREC
Definition: ilaprec.f:58
Here is the call graph for this function:
Here is the caller graph for this function: