LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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 November 2011
18 *
19 *> \ingroup auxOTHERcomputational
20 *
21 * ===================================================================== PROGRAM SLAMCHTST
22 *
23 * -- LAPACK test routine (version 3.4.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 * November 2011
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