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