![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ILAPREC 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download ILAPREC + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilaprec.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilaprec.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilaprec.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * INTEGER FUNCTION ILAPREC( PREC ) 00022 * 00023 * .. Scalar Arguments .. 00024 * CHARACTER PREC 00025 * .. 00026 * 00027 * 00028 *> \par Purpose: 00029 * ============= 00030 *> 00031 *> \verbatim 00032 *> 00033 *> This subroutine translated from a character string specifying an 00034 *> intermediate precision to the relevant BLAST-specified integer 00035 *> constant. 00036 *> 00037 *> ILAPREC returns an INTEGER. If ILAPREC < 0, then the input is not a 00038 *> character indicating a supported intermediate precision. Otherwise 00039 *> ILAPREC returns the constant value corresponding to PREC. 00040 *> \endverbatim 00041 * 00042 * Arguments: 00043 * ========== 00044 * 00045 * 00046 * Authors: 00047 * ======== 00048 * 00049 *> \author Univ. of Tennessee 00050 *> \author Univ. of California Berkeley 00051 *> \author Univ. of Colorado Denver 00052 *> \author NAG Ltd. 00053 * 00054 *> \date November 2011 00055 * 00056 *> \ingroup auxOTHERcomputational 00057 * 00058 * ===================================================================== 00059 INTEGER FUNCTION ILAPREC( PREC ) 00060 * 00061 * -- LAPACK computational routine (version 3.4.0) -- 00062 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00063 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00064 * November 2011 00065 * 00066 * .. Scalar Arguments .. 00067 CHARACTER PREC 00068 * .. 00069 * 00070 * ===================================================================== 00071 * 00072 * .. Parameters .. 00073 INTEGER BLAS_PREC_SINGLE, BLAS_PREC_DOUBLE, BLAS_PREC_INDIGENOUS, 00074 $ BLAS_PREC_EXTRA 00075 PARAMETER ( BLAS_PREC_SINGLE = 211, BLAS_PREC_DOUBLE = 212, 00076 $ BLAS_PREC_INDIGENOUS = 213, BLAS_PREC_EXTRA = 214 ) 00077 * .. 00078 * .. External Functions .. 00079 LOGICAL LSAME 00080 EXTERNAL LSAME 00081 * .. 00082 * .. Executable Statements .. 00083 IF( LSAME( PREC, 'S' ) ) THEN 00084 ILAPREC = BLAS_PREC_SINGLE 00085 ELSE IF( LSAME( PREC, 'D' ) ) THEN 00086 ILAPREC = BLAS_PREC_DOUBLE 00087 ELSE IF( LSAME( PREC, 'I' ) ) THEN 00088 ILAPREC = BLAS_PREC_INDIGENOUS 00089 ELSE IF( LSAME( PREC, 'X' ) .OR. LSAME( PREC, 'E' ) ) THEN 00090 ILAPREC = BLAS_PREC_EXTRA 00091 ELSE 00092 ILAPREC = -1 00093 END IF 00094 RETURN 00095 * 00096 * End of ILAPREC 00097 * 00098 END