LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ ilaprec()

integer function ilaprec ( character  PREC)

ILAPREC

Download ILAPREC + dependencies [TGZ] [ZIP] [TXT]

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.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

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: