slamchtst.3lapack

Langue: en

Version: 267150 (debian - 07/07/09)

Section: 3 (Bibliothèques de fonctions)

Sommaire

NAME

SYNOPSIS

PROGRAM TEST2

    
REAL BASE, EMAX, EMIN, EPS, RMAX, RMIN, RND, SFMIN, T, PREC

    
REAL SLAMCH

    
EXTERNAL SLAMCH

    
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

PURPOSE