LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
dlabad.f
Go to the documentation of this file.
1*> \brief \b DLABAD
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8*> Download DLABAD + dependencies
9*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlabad.f">
10*> [TGZ]</a>
11*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlabad.f">
12*> [ZIP]</a>
13*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlabad.f">
14*> [TXT]</a>
15*
16* Definition:
17* ===========
18*
19* SUBROUTINE DLABAD( SMALL, LARGE )
20*
21* .. Scalar Arguments ..
22* DOUBLE PRECISION LARGE, SMALL
23* ..
24*
25*
26*> \par Purpose:
27* =============
28*>
29*> \verbatim
30*>
31*> DLABAD is a no-op and kept for compatibility reasons. It used
32*> to correct the overflow/underflow behavior of machines that
33*> are not IEEE-754 compliant.
34*>
35*> \endverbatim
36*
37* Arguments:
38* ==========
39*
40*> \param[in,out] SMALL
41*> \verbatim
42*> SMALL is DOUBLE PRECISION
43*> On entry, the underflow threshold as computed by DLAMCH.
44*> On exit, the unchanged value SMALL.
45*> \endverbatim
46*>
47*> \param[in,out] LARGE
48*> \verbatim
49*> LARGE is DOUBLE PRECISION
50*> On entry, the overflow threshold as computed by DLAMCH.
51*> On exit, the unchanged value LARGE.
52*> \endverbatim
53*
54* Authors:
55* ========
56*
57*> \author Univ. of Tennessee
58*> \author Univ. of California Berkeley
59*> \author Univ. of Colorado Denver
60*> \author NAG Ltd.
61*
62*> \ingroup labad
63*
64* =====================================================================
65 SUBROUTINE dlabad( SMALL, LARGE )
66*
67* -- LAPACK auxiliary routine --
68* -- LAPACK is a software package provided by Univ. of Tennessee, --
69* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
70*
71* .. Scalar Arguments ..
72 DOUBLE PRECISION LARGE, SMALL
73* ..
74*
75* =====================================================================
76*
77* .. Intrinsic Functions ..
78 INTRINSIC log10, sqrt
79* ..
80* .. Executable Statements ..
81*
82* If it looks like we're on a Cray, take the square root of
83* SMALL and LARGE to avoid overflow and underflow problems.
84*
85* IF( LOG10( LARGE ).GT.2000.D0 ) THEN
86* SMALL = SQRT( SMALL )
87* LARGE = SQRT( LARGE )
88* END IF
89*
90 RETURN
91*
92* End of DLABAD
93*
94 END
dlabad
subroutine dlabad(small, large)
DLABAD
Definition dlabad.f:66