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