LAPACK
3.12.1
LAPACK: Linear Algebra PACKage
Toggle main menu visibility
Main Page
Related Pages
Routines
Modules
Modules List
Module Members
All
c
d
s
z
Functions/Subroutines
Variables
c
d
s
z
Data Types
Data Types List
Data Type Index
Data Fields
All
Functions/Subroutines
Variables
Files
File List
File Members
All
_
a
b
c
d
f
g
h
i
l
m
p
r
s
t
u
x
z
Functions/Subroutines
_
a
c
d
f
g
h
i
l
m
s
t
x
z
Variables
c
l
r
Typedefs
Enumerations
Enumerator
Macros
a
b
c
f
i
p
t
u
x
•
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Modules
Pages
Loading...
Searching...
No Matches
slabad.f
Go to the documentation of this file.
1
*> \brief \b SLABAD
2
*
3
* =========== DOCUMENTATION ===========
4
*
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
7
*
8
*> Download SLABAD + dependencies
9
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slabad.f">
10
*> [TGZ]</a>
11
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slabad.f">
12
*> [ZIP]</a>
13
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slabad.f">
14
*> [TXT]</a>
15
*
16
* Definition:
17
* ===========
18
*
19
* SUBROUTINE SLABAD( SMALL, LARGE )
20
*
21
* .. Scalar Arguments ..
22
* REAL LARGE, SMALL
23
* ..
24
*
25
*
26
*> \par Purpose:
27
* =============
28
*>
29
*> \verbatim
30
*>
31
*> SLABAD 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
*> \endverbatim
35
*
36
* Arguments:
37
* ==========
38
*
39
*> \param[in,out] SMALL
40
*> \verbatim
41
*> SMALL is REAL
42
*> On entry, the underflow threshold as computed by SLAMCH.
43
*> On exit, the unchanged value SMALL.
44
*> \endverbatim
45
*>
46
*> \param[in,out] LARGE
47
*> \verbatim
48
*> LARGE is REAL
49
*> On entry, the overflow threshold as computed by SLAMCH.
50
*> On exit, the unchanged value LARGE.
51
*> \endverbatim
52
*
53
* Authors:
54
* ========
55
*
56
*> \author Univ. of Tennessee
57
*> \author Univ. of California Berkeley
58
*> \author Univ. of Colorado Denver
59
*> \author NAG Ltd.
60
*
61
*> \ingroup labad
62
*
63
* =====================================================================
64
SUBROUTINE
slabad
( SMALL, LARGE )
65
*
66
* -- LAPACK auxiliary routine --
67
* -- LAPACK is a software package provided by Univ. of Tennessee, --
68
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
69
*
70
* .. Scalar Arguments ..
71
REAL
LARGE, SMALL
72
* ..
73
*
74
* =====================================================================
75
*
76
* .. Intrinsic Functions ..
77
INTRINSIC
log10, sqrt
78
* ..
79
* .. Executable Statements ..
80
*
81
* If it looks like we're on a Cray, take the square root of
82
* SMALL and LARGE to avoid overflow and underflow problems.
83
*
84
* IF( LOG10( LARGE ).GT.2000. ) THEN
85
* SMALL = SQRT( SMALL )
86
* LARGE = SQRT( LARGE )
87
* END IF
88
*
89
RETURN
90
*
91
* End of SLABAD
92
*
64
SUBROUTINE
slabad
( SMALL, LARGE )
…
93
END
slabad
subroutine slabad(small, large)
SLABAD
Definition
slabad.f:65
SRC
slabad.f
Generated on Mon Jan 20 2025 17:18:12 for LAPACK by
1.11.0