![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b SLAMCHTST 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 * 00009 * Authors: 00010 * ======== 00011 * 00012 *> \author Univ. of Tennessee 00013 *> \author Univ. of California Berkeley 00014 *> \author Univ. of Colorado Denver 00015 *> \author NAG Ltd. 00016 * 00017 *> \date November 2011 00018 * 00019 *> \ingroup auxOTHERcomputational 00020 * 00021 * ===================================================================== PROGRAM SLAMCHTST 00022 * 00023 * -- LAPACK test routine (version 3.4.0) -- 00024 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00025 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00026 * November 2011 00027 * 00028 * ===================================================================== 00029 * 00030 * .. Local Scalars .. 00031 REAL BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN, 00032 $ T, PREC 00033 * .. 00034 * .. External Functions .. 00035 REAL SLAMCH 00036 EXTERNAL SLAMCH 00037 * .. 00038 * .. Executable Statements .. 00039 * 00040 EPS = SLAMCH( 'Epsilon' ) 00041 SFMIN = SLAMCH( 'Safe minimum' ) 00042 BASE = SLAMCH( 'Base' ) 00043 PREC = SLAMCH( 'Precision' ) 00044 T = SLAMCH( 'Number of digits in mantissa' ) 00045 RND = SLAMCH( 'Rounding mode' ) 00046 EMIN = SLAMCH( 'Minimum exponent' ) 00047 RMIN = SLAMCH( 'Underflow threshold' ) 00048 EMAX = SLAMCH( 'Largest exponent' ) 00049 RMAX = SLAMCH( 'Overflow threshold' ) 00050 * 00051 WRITE( 6, * )' Epsilon = ', EPS 00052 WRITE( 6, * )' Safe minimum = ', SFMIN 00053 WRITE( 6, * )' Base = ', BASE 00054 WRITE( 6, * )' Precision = ', PREC 00055 WRITE( 6, * )' Number of digits in mantissa = ', T 00056 WRITE( 6, * )' Rounding mode = ', RND 00057 WRITE( 6, * )' Minimum exponent = ', EMIN 00058 WRITE( 6, * )' Underflow threshold = ', RMIN 00059 WRITE( 6, * )' Largest exponent = ', EMAX 00060 WRITE( 6, * )' Overflow threshold = ', RMAX 00061 WRITE( 6, * )' Reciprocal of safe minimum = ', 1 / SFMIN 00062 * 00063 END