slamchtst (l) - Linux Manuals

NAME

SYNOPSIS

PROGRAM TEST2

    

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

    

REAL SLAMCH

    

EXTERNAL SLAMCH

    

EPS = SLAMCH( aqEpsilonaq )

    

SFMIN = SLAMCH( aqSafe minimumaq )

    

BASE = SLAMCH( aqBaseaq )

    

PREC = SLAMCH( aqPrecisionaq )

    

T = SLAMCH( aqNumber of digits in mantissaaq )

    

RND = SLAMCH( aqRounding modeaq )

    

EMIN = SLAMCH( aqMinimum exponentaq )

    

RMIN = SLAMCH( aqUnderflow thresholdaq )

    

EMAX = SLAMCH( aqLargest exponentaq )

    

RMAX = SLAMCH( 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