LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
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
*> \date December 2016
18
*
19
*> \ingroup auxOTHERcomputational
20
*
21
* ===================================================================== PROGRAM SLAMCHTST
22
*
23
* -- LAPACK test routine (version 3.7.0) --
24
* -- LAPACK is a software package provided by Univ. of Tennessee, --
25
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
26
* December 2016
27
*
28
* =====================================================================
29
*
30
* .. Local Scalars ..
31
REAL
BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN,
32
$ t, prec
33
* ..
34
* .. External Functions ..
35
REAL
SLAMCH
36
EXTERNAL
slamch
37
* ..
38
* .. Executable Statements ..
39
*
40
eps =
slamch
(
'Epsilon'
)
41
sfmin =
slamch
(
'Safe minimum'
)
42
base =
slamch
(
'Base'
)
43
prec =
slamch
(
'Precision'
)
44
t =
slamch
(
'Number of digits in mantissa'
)
45
rnd =
slamch
(
'Rounding mode'
)
46
emin =
slamch
(
'Minimum exponent'
)
47
rmin =
slamch
(
'Underflow threshold'
)
48
emax =
slamch
(
'Largest exponent'
)
49
rmax =
slamch
(
'Overflow threshold'
)
50
*
51
WRITE
( 6, * )
' Epsilon = '
, eps
52
WRITE
( 6, * )
' Safe minimum = '
, sfmin
53
WRITE
( 6, * )
' Base = '
, base
54
WRITE
( 6, * )
' Precision = '
, prec
55
WRITE
( 6, * )
' Number of digits in mantissa = '
, t
56
WRITE
( 6, * )
' Rounding mode = '
, rnd
57
WRITE
( 6, * )
' Minimum exponent = '
, emin
58
WRITE
( 6, * )
' Underflow threshold = '
, rmin
59
WRITE
( 6, * )
' Largest exponent = '
, emax
60
WRITE
( 6, * )
' Overflow threshold = '
, rmax
61
WRITE
( 6, * )
' Reciprocal of safe minimum = '
, 1 / sfmin
62
*
63
END
slamch
real function slamch(CMACH)
SLAMCH
Definition:
slamch.f:69
INSTALL
slamchtst.f
Generated on Fri Dec 23 2016 15:28:06 for LAPACK by
1.8.10