3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
9
*> Download SLABAD + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slabad.f">
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slabad.f">
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slabad.f">
21
* SUBROUTINE SLABAD( SMALL, LARGE )
23
* .. Scalar Arguments ..
33
*> SLABAD takes as input the values computed by SLAMCH for underflow and
34
*> overflow, and returns the square root of each of these values if the
35
*> log of LARGE is sufficiently large. This subroutine is intended to
36
*> identify machines with a large exponent range, such as the Crays, and
37
*> redefine the underflow and overflow limits to be the square roots of
38
*> the values computed by SLAMCH. This subroutine is needed because
39
*> SLAMCH does not compensate for poor arithmetic in the upper half of
40
*> the exponent range, as is found on a Cray.
46
*> \param[in,out] SMALL
49
*> On entry, the underflow threshold as computed by SLAMCH.
50
*> On exit, if LOG10(LARGE) is sufficiently large, the square
51
*> root of SMALL, otherwise unchanged.
54
*> \param[in,out] LARGE
57
*> On entry, the overflow threshold as computed by SLAMCH.
58
*> On exit, if LOG10(LARGE) is sufficiently large, the square
59
*> root of LARGE, otherwise unchanged.
65
*> \author Univ. of Tennessee
66
*> \author Univ. of California Berkeley
67
*> \author Univ. of Colorado Denver
70
*> \date November 2011
72
*> \ingroup auxOTHERauxiliary
74
* =====================================================================
1
75
SUBROUTINE SLABAD( SMALL, LARGE )
2
C$Id: slabad.f 19697 2010-10-29 16:57:34Z d3y133 $
4
* -- LAPACK auxiliary routine (version 3.0) --
5
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
6
* Courant Institute, Argonne National Lab, and Rice University
77
* -- LAPACK auxiliary routine (version 3.4.0) --
78
* -- LAPACK is a software package provided by Univ. of Tennessee, --
79
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9
82
* .. Scalar Arguments ..
16
* SLABAD takes as input the values computed by SLAMCH for underflow and
17
* overflow, and returns the square root of each of these values if the
18
* log of LARGE is sufficiently large. This subroutine is intended to
19
* identify machines with a large exponent range, such as the Crays, and
20
* redefine the underflow and overflow limits to be the square roots of
21
* the values computed by SLAMCH. This subroutine is needed because
22
* SLAMCH does not compensate for poor arithmetic in the upper half of
23
* the exponent range, as is found on a Cray.
28
* SMALL (input/output) REAL
29
* On entry, the underflow threshold as computed by SLAMCH.
30
* On exit, if LOG10(LARGE) is sufficiently large, the square
31
* root of SMALL, otherwise unchanged.
33
* LARGE (input/output) REAL
34
* On entry, the overflow threshold as computed by SLAMCH.
35
* On exit, if LOG10(LARGE) is sufficiently large, the square
36
* root of LARGE, otherwise unchanged.
38
86
* =====================================================================
40
88
* .. Intrinsic Functions ..