Annotation of rpl/lapack/lapack/ilaprec.f, revision 1.1
1.1 ! bertrand 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
CVSweb interface <joel.bertrand@systella.fr>