LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
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 December 2016
22
*
23
*> \ingroup auxOTHERauxiliary
24
*
25
* ===================================================================== PROGRAM DLAMCHTST
26
*
27
* -- LAPACK test routine (version 3.7.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
* December 2016
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
dlamch
double precision function dlamch(CMACH)
DLAMCH
Definition:
dlamch.f:65
INSTALL
dlamchtst.f
Generated on Fri Dec 23 2016 15:28:06 for LAPACK by
1.8.10