LAPACK  3.8.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.
Date
December 2016

Definition at line 60 of file ilaprec.f.

60 *
61 * -- LAPACK computational routine (version 3.7.0) --
62 * -- LAPACK is a software package provided by Univ. of Tennessee, --
63 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64 * December 2016
65 *
66 * .. Scalar Arguments ..
67  CHARACTER prec
68 * ..
69 *
70 * =====================================================================
71 *
72 * .. Parameters ..
73  INTEGER blas_prec_single, blas_prec_double, blas_prec_indigenous,
74  $ blas_prec_extra
75  parameter( blas_prec_single = 211, blas_prec_double = 212,
76  $ blas_prec_indigenous = 213, blas_prec_extra = 214 )
77 * ..
78 * .. External Functions ..
79  LOGICAL lsame
80  EXTERNAL lsame
81 * ..
82 * .. Executable Statements ..
83  IF( lsame( prec, 'S' ) ) THEN
84  ilaprec = blas_prec_single
85  ELSE IF( lsame( prec, 'D' ) ) THEN
86  ilaprec = blas_prec_double
87  ELSE IF( lsame( prec, 'I' ) ) THEN
88  ilaprec = blas_prec_indigenous
89  ELSE IF( lsame( prec, 'X' ) .OR. lsame( prec, 'E' ) ) THEN
90  ilaprec = blas_prec_extra
91  ELSE
92  ilaprec = -1
93  END IF
94  RETURN
95 *
96 * End of ILAPREC
97 *
integer function ilaprec(PREC)
ILAPREC
Definition: ilaprec.f:60
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55
Here is the caller graph for this function: