LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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*> \ingroup auxOTHERcomputational
18*
19* ===================================================================== PROGRAM SLAMCHTST
20*
21* -- LAPACK test routine --
22* -- LAPACK is a software package provided by Univ. of Tennessee, --
23* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
24*
25* =====================================================================
26*
27* .. Local Scalars ..
28 REAL base, emax, emin, eps, rmax, rmin, rnd, sfmin,
29 $ t, prec
30* ..
31* .. External Functions ..
32 REAL slamch
33 EXTERNAL slamch
34* ..
35* .. Executable Statements ..
36*
37 eps = slamch( 'Epsilon' )
38 sfmin = slamch( 'Safe minimum' )
39 base = slamch( 'Base' )
40 prec = slamch( 'Precision' )
41 t = slamch( 'Number of digits in mantissa' )
42 rnd = slamch( 'Rounding mode' )
43 emin = slamch( 'Minimum exponent' )
44 rmin = slamch( 'Underflow threshold' )
45 emax = slamch( 'Largest exponent' )
46 rmax = slamch( 'Overflow threshold' )
47*
48 WRITE( 6, * )' Epsilon = ', eps
49 WRITE( 6, * )' Safe minimum = ', sfmin
50 WRITE( 6, * )' Base = ', base
51 WRITE( 6, * )' Precision = ', prec
52 WRITE( 6, * )' Number of digits in mantissa = ', t
53 WRITE( 6, * )' Rounding mode = ', rnd
54 WRITE( 6, * )' Minimum exponent = ', emin
55 WRITE( 6, * )' Underflow threshold = ', rmin
56 WRITE( 6, * )' Largest exponent = ', emax
57 WRITE( 6, * )' Overflow threshold = ', rmax
58 WRITE( 6, * )' Reciprocal of safe minimum = ', 1 / sfmin
59*
60 END
real function slamch(cmach)
SLAMCH
Definition slamch.f:68