1DLANEG(1) LAPACK auxiliary routine (version 3.2) DLANEG(1)
2
3
4
6 DLANEG - computes the Sturm count, the number of negative pivots
7 encountered while factoring tridiagonal T - sigma I = L D L^T
8
10 FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R )
11
12 IMPLICIT NONE
13
14 INTEGER DLANEG
15
16 INTEGER N, R
17
18 DOUBLE PRECISION PIVMIN, SIGMA
19
20 DOUBLE PRECISION D( * ), LLD( * )
21
23 DLANEG computes the Sturm count, the number of negative pivots encoun‐
24 tered while factoring tridiagonal T - sigma I = L D L^T. This imple‐
25 mentation works directly on the factors without forming the tridiagonal
26 matrix T. The Sturm count is also the number of eigenvalues of T less
27 than sigma.
28 This routine is called from DLARRB.
29 The current routine does not use the PIVMIN parameter but rather
30 requires IEEE-754 propagation of Infinities and NaNs. This routine
31 also has no input range restrictions but does require default exception
32 handling such that x/0 produces Inf when x is non-zero, and Inf/Inf
33 produces NaN. For more information, see:
34 Marques, Riedy, and Voemel, "Benefits of IEEE-754 Features in
35 Modern Symmetric Tridiagonal Eigensolvers," SIAM Journal on
36 Scientific Computing, v28, n5, 2006. DOI 10.1137/050641624
37 (Tech report version in LAWN 172 with the same title.)
38
40 N (input) INTEGER
41 The order of the matrix.
42
43 D (input) DOUBLE PRECISION array, dimension (N)
44 The N diagonal elements of the diagonal matrix D.
45
46 LLD (input) DOUBLE PRECISION array, dimension (N-1)
47 The (N-1) elements L(i)*L(i)*D(i).
48
49 SIGMA (input) DOUBLE PRECISION
50 Shift amount in T - sigma I = L D L^T.
51
52 PIVMIN (input) DOUBLE PRECISION
53 The minimum pivot in the Sturm sequence. May be used when zero
54 pivots are encountered on non-IEEE-754 architectures.
55
56 R (input) INTEGER
57 The twist index for the twisted factorization that is used for
58 the negcount.
59
61 Based on contributions by
62 Osni Marques, LBNL/NERSC, USA
63 Christof Voemel, University of California, Berkeley, USA
64 Jason Riedy, University of California, Berkeley, USA
65
66
67
68 LAPACK auxiliary routine (versionNo3v.e2m)ber 2008 DLANEG(1)