LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ 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*
integer function ilaprec(prec)
ILAPREC
Definition ilaprec.f:58
logical function lsame(ca, cb)
LSAME
Definition lsame.f:48
Here is the call graph for this function:
Here is the caller graph for this function: