Functions¶

subroutine DLAMC5 (beta, p, emin, ieee, emax, rmax)
DLAMC5 subroutine SLAMC5 (beta, p, emin, ieee, emax, rmax)
SLAMC5

subroutine DLAMC5 (integer beta, integer p, integer emin, logical ieee, integer emax, double precision rmax)¶

DLAMC5 Purpose:

!> DLAMC5 attempts to compute RMAX, the largest machine floating-point
!> number, without overflow.  It assumes that EMAX + abs(EMIN) sum
!> approximately to a power of 2.  It will fail on machines where this
!> assumption does not hold, for example, the Cyber 205 (EMIN = -28625,
!> EMAX = 28718).  It will also fail if the value supplied for EMIN is
!> too large (i.e. too close to zero), probably with overflow.
!> 

Parameters

!>          The base of floating-point arithmetic.
!> 

!>          The number of base BETA digits in the mantissa of a
!>          floating-point value.
!> 

!>          The minimum exponent before (gradual) underflow.
!> 

!>          A logical flag specifying whether or not the arithmetic
!>          system is thought to comply with the IEEE standard.
!> 

!>          The largest exponent before overflow
!> 

!>          The largest machine floating-point number.
!> 

Definition at line 795 of file dlamchf77.f.

subroutine SLAMC5 (integer beta, integer p, integer emin, logical ieee, integer emax, real rmax)¶

SLAMC5 Purpose:

!> SLAMC5 attempts to compute RMAX, the largest machine floating-point
!> number, without overflow.  It assumes that EMAX + abs(EMIN) sum
!> approximately to a power of 2.  It will fail on machines where this
!> assumption does not hold, for example, the Cyber 205 (EMIN = -28625,
!> EMAX = 28718).  It will also fail if the value supplied for EMIN is
!> too large (i.e. too close to zero), probably with overflow.
!> 

Parameters

!>          The base of floating-point arithmetic.
!> 

!>          The number of base BETA digits in the mantissa of a
!>          floating-point value.
!> 

!>          The minimum exponent before (gradual) underflow.
!> 

!>          A logical flag specifying whether or not the arithmetic
!>          system is thought to comply with the IEEE standard.
!> 

!>          The largest exponent before overflow
!> 

!>          The largest machine floating-point number.
!> 

Definition at line 796 of file slamchf77.f.