LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
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 *> \ingroup auxOTHERauxiliary
22 *
23 * ===================================================================== PROGRAM DLAMCHTST
24 *
25 * -- LAPACK test routine --
26 * -- LAPACK is a software package provided by Univ. of Tennessee, --
27 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
28 *
29 * =====================================================================
30 *
31 * .. Local Scalars ..
32  DOUBLE PRECISION base, emax, emin, eps, prec, rmax, rmin, rnd,
33  $ sfmin, t
34 * ..
35 * .. External Functions ..
36  DOUBLE PRECISION dlamch
37  EXTERNAL dlamch
38 * ..
39 * .. Executable Statements ..
40 *
41  eps = dlamch( 'Epsilon' )
42  sfmin = dlamch( 'Safe minimum' )
43  base = dlamch( 'Base' )
44  prec = dlamch( 'Precision' )
45  t = dlamch( 'Number of digits in mantissa' )
46  rnd = dlamch( 'Rounding mode' )
47  emin = dlamch( 'Minimum exponent' )
48  rmin = dlamch( 'Underflow threshold' )
49  emax = dlamch( 'Largest exponent' )
50  rmax = dlamch( 'Overflow threshold' )
51 *
52  WRITE( 6, * )' Epsilon = ', eps
53  WRITE( 6, * )' Safe minimum = ', sfmin
54  WRITE( 6, * )' Base = ', base
55  WRITE( 6, * )' Precision = ', prec
56  WRITE( 6, * )' Number of digits in mantissa = ', t
57  WRITE( 6, * )' Rounding mode = ', rnd
58  WRITE( 6, * )' Minimum exponent = ', emin
59  WRITE( 6, * )' Underflow threshold = ', rmin
60  WRITE( 6, * )' Largest exponent = ', emax
61  WRITE( 6, * )' Overflow threshold = ', rmax
62  WRITE( 6, * )' Reciprocal of safe minimum = ', 1 / sfmin
63 *
64  END
double precision function dlamch(CMACH)
DLAMCH
Definition: dlamch.f:69