LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
slamchtst.f
Go to the documentation of this file.
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
 All Files Functions