slabad()

subroutine slabad	(	real	small,
		real	large )

SLABAD

Download SLABAD + dependencies [TGZ] [ZIP] [TXT]

Purpose:

!>
!> SLABAD is a no-op and kept for compatibility reasons. It used
!> to correct the overflow/underflow behavior of machines that
!> are not IEEE-754 compliant.
!> 

Parameters

[in,out]	SMALL	!> SMALL is REAL !> On entry, the underflow threshold as computed by SLAMCH. !> On exit, the unchanged value SMALL. !>
[in,out]	LARGE	!> LARGE is REAL !> On entry, the overflow threshold as computed by SLAMCH. !> On exit, the unchanged value LARGE. !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 64 of file slabad.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      REAL               LARGE, SMALL
*     ..
*
*  =====================================================================
*
*     .. Intrinsic Functions ..
      INTRINSIC          log10, sqrt
*     ..
*     .. Executable Statements ..
*
*     If it looks like we're on a Cray, take the square root of
*     SMALL and LARGE to avoid overflow and underflow problems.
*
*      IF( LOG10( LARGE ).GT.2000. ) THEN
*         SMALL = SQRT( SMALL )
*         LARGE = SQRT( LARGE )
*      END IF
*
      RETURN
*
*     End of SLABAD
*