Rechercher une page de manuel
slamchtst.3lapack
Langue: en
Version: 267150 (debian - 07/07/09)
Section: 3 (Bibliothèques de fonctions)
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
PURPOSE
Contenus ©2006-2024 Benjamin Poulain
Design ©2006-2024 Maxime Vantorre