LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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