LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
slamchtst.f
Go to the documentation of this file.
1 *> \brief \b SLAMCHTST
2 *
3 * =========== DOCUMENTATION ===========
4 *
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
7 *
8 *
9 * Authors:
10 * ========
11 *
12 *> \author Univ. of Tennessee
13 *> \author Univ. of California Berkeley
14 *> \author Univ. of Colorado Denver
15 *> \author NAG Ltd.
16 *
17 *> \ingroup auxOTHERcomputational
18 *
19 * ===================================================================== PROGRAM SLAMCHTST
20 *
21 * -- LAPACK test routine --
22 * -- LAPACK is a software package provided by Univ. of Tennessee, --
23 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
24 *
25 * =====================================================================
26 *
27 * .. Local Scalars ..
28  REAL base, emax, emin, eps, rmax, rmin, rnd, sfmin,
29  $ t, prec
30 * ..
31 * .. External Functions ..
32  REAL slamch
33  EXTERNAL slamch
34 * ..
35 * .. Executable Statements ..
36 *
37  eps = slamch( 'Epsilon' )
38  sfmin = slamch( 'Safe minimum' )
39  base = slamch( 'Base' )
40  prec = slamch( 'Precision' )
41  t = slamch( 'Number of digits in mantissa' )
42  rnd = slamch( 'Rounding mode' )
43  emin = slamch( 'Minimum exponent' )
44  rmin = slamch( 'Underflow threshold' )
45  emax = slamch( 'Largest exponent' )
46  rmax = slamch( 'Overflow threshold' )
47 *
48  WRITE( 6, * )' Epsilon = ', eps
49  WRITE( 6, * )' Safe minimum = ', sfmin
50  WRITE( 6, * )' Base = ', base
51  WRITE( 6, * )' Precision = ', prec
52  WRITE( 6, * )' Number of digits in mantissa = ', t
53  WRITE( 6, * )' Rounding mode = ', rnd
54  WRITE( 6, * )' Minimum exponent = ', emin
55  WRITE( 6, * )' Underflow threshold = ', rmin
56  WRITE( 6, * )' Largest exponent = ', emax
57  WRITE( 6, * )' Overflow threshold = ', rmax
58  WRITE( 6, * )' Reciprocal of safe minimum = ', 1 / sfmin
59 *
60  END
real function slamch(CMACH)
SLAMCH
Definition: slamch.f:68