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

◆ 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 66 of file slabad.f.

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