INSTALL/dlamchtst.f

   1 *> \brief \b DLAMCHTST
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *  Definition:
   9 *  ===========
  10 *
  11 *      PROGRAM DLAMCHTST
  12 *
  13 *  Authors:
  14 *  ========
  15 *
  16 *> \author Univ. of Tennessee
  17 *> \author Univ. of California Berkeley
  18 *> \author Univ. of Colorado Denver
  19 *> \author NAG Ltd.
  20 *
  21 *> \date November 2011
  22 *
  23 *> \ingroup auxOTHERauxiliary
  24 *
  25 *  =====================================================================      PROGRAM DLAMCHTST
  26 *
  27 *  -- LAPACK test routine (version 3.4.0) --
  28 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  29 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  30 *     November 2011
  31 *
  32 * =====================================================================
  33 *
  34 *     .. Local Scalars ..
  35       DOUBLE PRECISION   BASE, EMAX, EMIN, EPS, PREC, RMAX, RMIN, RND,
  36      $                   SFMIN, T
  37 *     ..
  38 *     .. External Functions ..
  39       DOUBLE PRECISION   DLAMCH
  40       EXTERNAL           DLAMCH
  41 *     ..
  42 *     .. Executable Statements ..
  43 *
  44       EPS   = DLAMCH( 'Epsilon' )
  45       SFMIN = DLAMCH( 'Safe minimum' )
  46       BASE  = DLAMCH( 'Base' )
  47       PREC  = DLAMCH( 'Precision' )
  48       T     = DLAMCH( 'Number of digits in mantissa' )
  49       RND   = DLAMCH( 'Rounding mode' )
  50       EMIN  = DLAMCH( 'Minimum exponent' )
  51       RMIN  = DLAMCH( 'Underflow threshold' )
  52       EMAX  = DLAMCH( 'Largest exponent' )
  53       RMAX  = DLAMCH( 'Overflow threshold' )
  54 *
  55       WRITE( 6, * )' Epsilon                      = ', EPS
  56       WRITE( 6, * )' Safe minimum                 = ', SFMIN
  57       WRITE( 6, * )' Base                         = ', BASE
  58       WRITE( 6, * )' Precision                    = ', PREC
  59       WRITE( 6, * )' Number of digits in mantissa = ', T
  60       WRITE( 6, * )' Rounding mode                = ', RND
  61       WRITE( 6, * )' Minimum exponent             = ', EMIN
  62       WRITE( 6, * )' Underflow threshold          = ', RMIN
  63       WRITE( 6, * )' Largest exponent             = ', EMAX
  64       WRITE( 6, * )' Overflow threshold           = ', RMAX
  65       WRITE( 6, * )' Reciprocal of safe minimum   = ', 1 / SFMIN
  66 *
  67       END