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