dlabad()

subroutine dlabad	(	double precision	small,
		double precision	large )

DLABAD

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

Purpose:

!>
!> DLABAD 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 DOUBLE PRECISION !> On entry, the underflow threshold as computed by DLAMCH. !> On exit, the unchanged value SMALL. !>
[in,out]	LARGE	!> LARGE is DOUBLE PRECISION !> On entry, the overflow threshold as computed by DLAMCH. !> On exit, the unchanged value LARGE. !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 65 of file dlabad.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 ..
      DOUBLE PRECISION   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.D0 ) THEN
*         SMALL = SQRT( SMALL )
*         LARGE = SQRT( LARGE )
*      END IF
*
      RETURN
*
*     End of DLABAD
*