SRC/ilaprec.f

   1 *> \brief \b ILAPREC
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *> \htmlonly
   9 *> Download ILAPREC + dependencies
  10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilaprec.f">
  11 *> [TGZ]</a>
  12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilaprec.f">
  13 *> [ZIP]</a>
  14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilaprec.f">
  15 *> [TXT]</a>
  16 *> \endhtmlonly
  17 *
  18 *  Definition:
  19 *  ===========
  20 *
  21 *       INTEGER FUNCTION ILAPREC( PREC )
  22 *
  23 *       .. Scalar Arguments ..
  24 *       CHARACTER          PREC
  25 *       ..
  26 *
  27 *
  28 *> \par Purpose:
  29 *  =============
  30 *>
  31 *> \verbatim
  32 *>
  33 *> This subroutine translated from a character string specifying an
  34 *> intermediate precision to the relevant BLAST-specified integer
  35 *> constant.
  36 *>
  37 *> ILAPREC returns an INTEGER.  If ILAPREC < 0, then the input is not a
  38 *> character indicating a supported intermediate precision.  Otherwise
  39 *> ILAPREC returns the constant value corresponding to PREC.
  40 *> \endverbatim
  41 *
  42 *  Arguments:
  43 *  ==========
  44 *
  45 *
  46 *  Authors:
  47 *  ========
  48 *
  49 *> \author Univ. of Tennessee
  50 *> \author Univ. of California Berkeley
  51 *> \author Univ. of Colorado Denver
  52 *> \author NAG Ltd.
  53 *
  54 *> \date November 2011
  55 *
  56 *> \ingroup auxOTHERcomputational
  57 *
  58 *  =====================================================================
  59       INTEGER FUNCTION ILAPREC( PREC )
  60 *
  61 *  -- LAPACK computational routine (version 3.4.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 *     November 2011
  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 *
  98       END