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

NAME

SYNOPSIS

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

PURPOSE

61 LAPACK test routine (version 3.2)November 2008                    DLAMCHTST(1)