1SLAMCHTST(1)           LAPACK test routine (version 3.2)          SLAMCHTST(1)
2
3
4

NAME

SYNOPSIS

7       PROGRAM TEST2
8
9           REAL      BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN, T, PREC
10
11           REAL      SLAMCH
12
13           EXTERNAL  SLAMCH
14
15           EPS       = SLAMCH( 'Epsilon' )
16
17           SFMIN     = SLAMCH( 'Safe minimum' )
18
19           BASE      = SLAMCH( 'Base' )
20
21           PREC      = SLAMCH( 'Precision' )
22
23           T         = SLAMCH( 'Number of digits in mantissa' )
24
25           RND       = SLAMCH( 'Rounding mode' )
26
27           EMIN      = SLAMCH( 'Minimum exponent' )
28
29           RMIN      = SLAMCH( 'Underflow threshold' )
30
31           EMAX      = SLAMCH( 'Largest exponent' )
32
33           RMAX      = SLAMCH( 'Overflow threshold' )
34
35           WRITE(    6, * )' Epsilon = ', EPS
36
37           WRITE(    6, * )' Safe minimum = ', SFMIN
38
39           WRITE(    6, * )' Base = ', BASE
40
41           WRITE(    6, * )' Precision = ', PREC
42
43           WRITE(    6, * )' Number of digits in mantissa = ', T
44
45           WRITE(    6, * )' Rounding mode = ', RND
46
47           WRITE(    6, * )' Minimum exponent = ', EMIN
48
49           WRITE(    6, * )' Underflow threshold = ', RMIN
50
51           WRITE(    6, * )' Largest exponent = ', EMAX
52
53           WRITE(    6, * )' Overflow threshold = ', RMAX
54
55           WRITE(    6, * )' Reciprocal of safe minimum = ', 1 / SFMIN
56
57           END
58

PURPOSE

60 LAPACK test routine (version 3.2)November 2008                    SLAMCHTST(1)