d8/d3e/slamchtst_8f_source.html

00001       PROGRAM TEST2
00002 *
00003 *  -- LAPACK test routine (version 3.2) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     November 2006
00006 *
00007 *     .. Local Scalars ..
00008       REAL               BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN,
00009      $                   T, PREC
00010 *     ..
00011 *     .. External Functions ..
00012       REAL               SLAMCH
00013       EXTERNAL           SLAMCH
00014 *     ..
00015 *     .. Executable Statements ..
00016 *
00017       EPS   = SLAMCH( 'Epsilon' )
00018       SFMIN = SLAMCH( 'Safe minimum' )
00019       BASE  = SLAMCH( 'Base' )
00020       PREC  = SLAMCH( 'Precision' )
00021       T     = SLAMCH( 'Number of digits in mantissa' )
00022       RND   = SLAMCH( 'Rounding mode' )
00023       EMIN  = SLAMCH( 'Minimum exponent' )
00024       RMIN  = SLAMCH( 'Underflow threshold' )
00025       EMAX  = SLAMCH( 'Largest exponent' )
00026       RMAX  = SLAMCH( 'Overflow threshold' )
00027 *
00028       WRITE( 6, * )' Epsilon                      = ', EPS
00029       WRITE( 6, * )' Safe minimum                 = ', SFMIN
00030       WRITE( 6, * )' Base                         = ', BASE
00031       WRITE( 6, * )' Precision                    = ', PREC
00032       WRITE( 6, * )' Number of digits in mantissa = ', T
00033       WRITE( 6, * )' Rounding mode                = ', RND
00034       WRITE( 6, * )' Minimum exponent             = ', EMIN
00035       WRITE( 6, * )' Underflow threshold          = ', RMIN
00036       WRITE( 6, * )' Largest exponent             = ', EMAX
00037       WRITE( 6, * )' Overflow threshold           = ', RMAX
00038       WRITE( 6, * )' Reciprocal of safe minimum   = ', 1 / SFMIN
00039 *
00040       END