Julie
e18d437924
GitHub is now enabling us to track accurately version and date. No need for this anymore.
61 lines
2.0 KiB
FortranFixed
61 lines
2.0 KiB
FortranFixed
*> \brief \b SLAMCHTST
|
|
*
|
|
* =========== DOCUMENTATION ===========
|
|
*
|
|
* Online html documentation available at
|
|
* http://www.netlib.org/lapack/explore-html/
|
|
*
|
|
*
|
|
* Authors:
|
|
* ========
|
|
*
|
|
*> \author Univ. of Tennessee
|
|
*> \author Univ. of California Berkeley
|
|
*> \author Univ. of Colorado Denver
|
|
*> \author NAG Ltd.
|
|
*
|
|
*> \ingroup auxOTHERcomputational
|
|
*
|
|
* ===================================================================== PROGRAM SLAMCHTST
|
|
*
|
|
* -- LAPACK test routine --
|
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
|
*
|
|
* =====================================================================
|
|
*
|
|
* .. Local Scalars ..
|
|
REAL BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN,
|
|
$ T, PREC
|
|
* ..
|
|
* .. External Functions ..
|
|
REAL SLAMCH
|
|
EXTERNAL SLAMCH
|
|
* ..
|
|
* .. Executable Statements ..
|
|
*
|
|
EPS = SLAMCH( 'Epsilon' )
|
|
SFMIN = SLAMCH( 'Safe minimum' )
|
|
BASE = SLAMCH( 'Base' )
|
|
PREC = SLAMCH( 'Precision' )
|
|
T = SLAMCH( 'Number of digits in mantissa' )
|
|
RND = SLAMCH( 'Rounding mode' )
|
|
EMIN = SLAMCH( 'Minimum exponent' )
|
|
RMIN = SLAMCH( 'Underflow threshold' )
|
|
EMAX = SLAMCH( 'Largest exponent' )
|
|
RMAX = SLAMCH( 'Overflow threshold' )
|
|
*
|
|
WRITE( 6, * )' Epsilon = ', EPS
|
|
WRITE( 6, * )' Safe minimum = ', SFMIN
|
|
WRITE( 6, * )' Base = ', BASE
|
|
WRITE( 6, * )' Precision = ', PREC
|
|
WRITE( 6, * )' Number of digits in mantissa = ', T
|
|
WRITE( 6, * )' Rounding mode = ', RND
|
|
WRITE( 6, * )' Minimum exponent = ', EMIN
|
|
WRITE( 6, * )' Underflow threshold = ', RMIN
|
|
WRITE( 6, * )' Largest exponent = ', EMAX
|
|
WRITE( 6, * )' Overflow threshold = ', RMAX
|
|
WRITE( 6, * )' Reciprocal of safe minimum = ', 1 / SFMIN
|
|
*
|
|
END
|