dlamchtst (l) - Linux Manuals

NAME

SYNOPSIS

PROGRAM TEST3

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

    
DOUBLE PRECISION DLAMCH

    
EXTERNAL DLAMCH

    
EPS = DLAMCH( aqEpsilonaq )

    
SFMIN = DLAMCH( aqSafe minimumaq )

    
BASE = DLAMCH( aqBaseaq )

    
PREC = DLAMCH( aqPrecisionaq )

    
T = DLAMCH( aqNumber of digits in mantissaaq )

    
RND = DLAMCH( aqRounding modeaq )

    
EMIN = DLAMCH( aqMinimum exponentaq )

    
RMIN = DLAMCH( aqUnderflow thresholdaq )

    
EMAX = DLAMCH( aqLargest exponentaq )

    
RMAX = DLAMCH( aqOverflow thresholdaq )

    
WRITE( 6, * )aq Epsilon = aq, EPS

    
WRITE( 6, * )aq Safe minimum = aq, SFMIN

    
WRITE( 6, * )aq Base = aq, BASE

    
WRITE( 6, * )aq Precision = aq, PREC

    
WRITE( 6, * )aq Number of digits in mantissa = aq, T

    
WRITE( 6, * )aq Rounding mode = aq, RND

    
WRITE( 6, * )aq Minimum exponent = aq, EMIN

    
WRITE( 6, * )aq Underflow threshold = aq, RMIN

    
WRITE( 6, * )aq Largest exponent = aq, EMAX

    
WRITE( 6, * )aq Overflow threshold = aq, RMAX

    
WRITE( 6, * )aq Reciprocal of safe minimum = aq, 1 / SFMIN

    
END

PURPOSE