LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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 67 of file dlabad.f.

68*
69* -- LAPACK auxiliary routine --
70* -- LAPACK is a software package provided by Univ. of Tennessee, --
71* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
72*
73* .. Scalar Arguments ..
74 DOUBLE PRECISION LARGE, SMALL
75* ..
76*
77* =====================================================================
78*
79* .. Intrinsic Functions ..
80 INTRINSIC log10, sqrt
81* ..
82* .. Executable Statements ..
83*
84* If it looks like we're on a Cray, take the square root of
85* SMALL and LARGE to avoid overflow and underflow problems.
86*
87* IF( LOG10( LARGE ).GT.2000.D0 ) THEN
88* SMALL = SQRT( SMALL )
89* LARGE = SQRT( LARGE )
90* END IF
91*
92 RETURN
93*
94* End of DLABAD
95*