dlamchtst.3lapack

Langue: en

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

Section: 3 (Bibliothèques de fonctions)

NAME

SYNOPSIS

PROGRAM TEST3

    
DOUBLE PRECISION BASE, EMAX, EMIN, EPS, PREC, RMAX, RMIN, RND, SFMIN, T

    
DOUBLE PRECISION DLAMCH

    
EXTERNAL DLAMCH

    
EPS = DLAMCH( 'Epsilon' )

    
SFMIN = DLAMCH( 'Safe minimum' )

    
BASE = DLAMCH( 'Base' )

    
PREC = DLAMCH( 'Precision' )

    
T = DLAMCH( 'Number of digits in mantissa' )

    
RND = DLAMCH( 'Rounding mode' )

    
EMIN = DLAMCH( 'Minimum exponent' )

    
RMIN = DLAMCH( 'Underflow threshold' )

    
EMAX = DLAMCH( 'Largest exponent' )

    
RMAX = DLAMCH( '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