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