F08JJF (DSTEBZ) computes some (or all) of the eigenvalues of a real symmetric tridiagonal matrix, by bisection.
SUBROUTINE F08JJF ( |
RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, INFO) |
INTEGER |
N, IL, IU, M, NSPLIT, IBLOCK(N), ISPLIT(N), IWORK(3*N), INFO |
REAL (KIND=nag_wp) |
VL, VU, ABSTOL, D(*), E(*), W(N), WORK(4*N) |
CHARACTER(1) |
RANGE, ORDER |
|
F08JJF (DSTEBZ) uses bisection to compute some or all of the eigenvalues of a real symmetric tridiagonal matrix .
It searches for zero or negligible off-diagonal elements of
to see if the matrix splits into block diagonal form:
It performs bisection on each of the blocks
and returns the block index of each computed eigenvalue, so that a subsequent call to
F08JKF (DSTEIN) to compute eigenvectors can also take advantage of the block structure.
- 1: RANGE – CHARACTER(1)Input
On entry: indicates which eigenvalues are required.
- All the eigenvalues are required.
- All the eigenvalues in the half-open interval (VL,VU] are required.
- Eigenvalues with indices IL to IU are required.
Constraint:
, or .
- 2: ORDER – CHARACTER(1)Input
On entry: indicates the order in which the eigenvalues and their block numbers are to be stored.
- The eigenvalues are to be grouped by split-off block and ordered from smallest to largest within each block.
- The eigenvalues for the entire matrix are to be ordered from smallest to largest.
Constraint:
or .
- 3: N – INTEGERInput
On entry: , the order of the matrix .
Constraint:
.
- 4: VL – REAL (KIND=nag_wp)Input
- 5: VU – REAL (KIND=nag_wp)Input
On entry: if
, the lower and upper bounds, respectively, of the half-open interval
(
VL,
VU] within which the required eigenvalues lie.
If
or
,
VL is not referenced.
Constraint:
if , .
- 6: IL – INTEGERInput
- 7: IU – INTEGERInput
On entry: if
, the indices of the first and last eigenvalues, respectively, to be computed (assuming that the eigenvalues are in ascending order).
If
or
,
IL is not referenced.
Constraint:
if , .
- 8: ABSTOL – REAL (KIND=nag_wp)Input
On entry: the absolute tolerance to which each eigenvalue is required. An eigenvalue (or cluster) is considered to have converged if it lies in an interval of width . If , then the tolerance is taken as .
- 9: D() – REAL (KIND=nag_wp) arrayInput
-
Note: the dimension of the array
D
must be at least
.
On entry: the diagonal elements of the tridiagonal matrix .
- 10: E() – REAL (KIND=nag_wp) arrayInput
-
Note: the dimension of the array
E
must be at least
.
On entry: the off-diagonal elements of the tridiagonal matrix .
- 11: M – INTEGEROutput
On exit: , the actual number of eigenvalues found.
- 12: NSPLIT – INTEGEROutput
On exit: the number of diagonal blocks which constitute the tridiagonal matrix .
- 13: W(N) – REAL (KIND=nag_wp) arrayOutput
On exit: the required eigenvalues of the tridiagonal matrix stored in to .
- 14: IBLOCK(N) – INTEGER arrayOutput
On exit: at each row/column
where
is zero or negligible,
is considered to split into a block diagonal matrix and
contains the block number of the eigenvalue stored in
, for
. Note that
for some
whenever
or
(see
Section 6) and
or
.
- 15: ISPLIT(N) – INTEGER arrayOutput
On exit: the leading
NSPLIT elements contain the points at which
splits up into sub-matrices as follows. The first sub-matrix consists of rows/columns
to
, the second sub-matrix consists of rows/columns
to
,
, and the
NSPLIT(th) sub-matrix consists of rows/columns
to
(
).
- 16: WORK() – REAL (KIND=nag_wp) arrayWorkspace
- 17: IWORK() – INTEGER arrayWorkspace
- 18: INFO – INTEGEROutput
On exit:
unless the routine detects an error (see
Section 6).
If failures with
are causing persistent trouble and you have checked that the routine is being called correctly, please contact
NAG.
There is no complex analogue of this routine.