NAG Library Routine Document
F08USF (ZHBGST)
1 Purpose
F08USF (ZHBGST) reduces a complex Hermitian-definite generalized eigenproblem
to the standard form
, where
and
are band matrices,
is a complex Hermitian matrix, and
has been factorized by
F08UTF (ZPBSTF).
2 Specification
SUBROUTINE F08USF ( |
VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, LDX, WORK, RWORK, INFO) |
INTEGER |
N, KA, KB, LDAB, LDBB, LDX, INFO |
REAL (KIND=nag_wp) |
RWORK(N) |
COMPLEX (KIND=nag_wp) |
AB(LDAB,*), BB(LDBB,*), X(LDX,*), WORK(N) |
CHARACTER(1) |
VECT, UPLO |
|
The routine may be called by its
LAPACK
name zhbgst.
3 Description
To reduce the complex Hermitian-definite generalized eigenproblem
to the standard form
, where
,
and
are banded, F08USF (ZHBGST) must be preceded by a call to
F08UTF (ZPBSTF) which computes the split Cholesky factorization of the positive definite matrix
:
. The split Cholesky factorization, compared with the ordinary Cholesky factorization, allows the work to be approximately halved.
This routine overwrites with , where and is a unitary matrix chosen (implicitly) to preserve the bandwidth of . The routine also has an option to allow the accumulation of , and then, if is an eigenvector of , is an eigenvector of the original system.
4 References
Crawford C R (1973) Reduction of a band-symmetric generalized eigenvalue problem Comm. ACM 16 41–44
Kaufman L (1984) Banded eigenvalue solvers on vector machines ACM Trans. Math. Software 10 73–86
5 Parameters
- 1: VECT – CHARACTER(1)Input
On entry: indicates whether
is to be returned.
- is not returned.
- is returned.
Constraint:
or .
- 2: UPLO – CHARACTER(1)Input
On entry: indicates whether the upper or lower triangular part of
is stored.
- The upper triangular part of is stored.
- The lower triangular part of is stored.
Constraint:
or .
- 3: N – INTEGERInput
On entry: , the order of the matrices and .
Constraint:
.
- 4: KA – INTEGERInput
On entry: if
, the number of superdiagonals,
, of the matrix
.
If , the number of subdiagonals, , of the matrix .
Constraint:
.
- 5: KB – INTEGERInput
On entry: if
, the number of superdiagonals,
, of the matrix
.
If , the number of subdiagonals, , of the matrix .
Constraint:
.
- 6: AB(LDAB,) – COMPLEX (KIND=nag_wp) arrayInput/Output
-
Note: the second dimension of the array
AB
must be at least
.
On entry: the upper or lower triangle of the
by
Hermitian band matrix
.
The matrix is stored in rows
to
, more precisely,
- if , the elements of the upper triangle of within the band must be stored with element in ;
- if , the elements of the lower triangle of within the band must be stored with element in
On exit: the upper or lower triangle of
AB is overwritten by the corresponding upper or lower triangle of
as specified by
UPLO.
- 7: LDAB – INTEGERInput
On entry: the first dimension of the array
AB as declared in the (sub)program from which F08USF (ZHBGST) is called.
Constraint:
.
- 8: BB(LDBB,) – COMPLEX (KIND=nag_wp) arrayInput
-
Note: the second dimension of the array
BB
must be at least
.
On entry: the banded split Cholesky factor of
as specified by
UPLO,
N and
KB and returned by
F08UTF (ZPBSTF).
- 9: LDBB – INTEGERInput
On entry: the first dimension of the array
BB as declared in the (sub)program from which F08USF (ZHBGST) is called.
Constraint:
.
- 10: X(LDX,) – COMPLEX (KIND=nag_wp) arrayOutput
-
Note: the second dimension of the array
X
must be at least
if
and at least
if
.
On exit: the
by
matrix
, if
.
If
,
X is not referenced.
- 11: LDX – INTEGERInput
On entry: the first dimension of the array
X as declared in the (sub)program from which F08USF (ZHBGST) is called.
Constraints:
- if , ;
- if , .
- 12: WORK(N) – COMPLEX (KIND=nag_wp) arrayWorkspace
- 13: RWORK(N) – REAL (KIND=nag_wp) arrayWorkspace
- 14: INFO – INTEGEROutput
On exit:
unless the routine detects an error (see
Section 6).
6 Error Indicators and Warnings
If , argument had an illegal value. An explanatory message is output, and execution of the program is terminated.
7 Accuracy
Forming the reduced matrix is a stable procedure. However it involves implicit multiplication by . When F08USF (ZHBGST) is used as a step in the computation of eigenvalues and eigenvectors of the original problem, there may be a significant loss of accuracy if is ill-conditioned with respect to inversion.
The total number of real floating point operations is approximately , when , assuming ; there are an additional operations when .
The real analogue of this routine is
F08UEF (DSBGST).
9 Example
This example computes all the eigenvalues of
, where
and
Here
is Hermitian,
is Hermitian positive definite, and
and
are treated as band matrices.
must first be factorized by
F08UTF (ZPBSTF). The program calls F08USF (ZHBGST) to reduce the problem to the standard form
, then
F08HSF (ZHBTRD) to reduce
to tridiagonal form, and
F08JFF (DSTERF) to compute the eigenvalues.
9.1 Program Text
Program Text (f08usfe.f90)
9.2 Program Data
Program Data (f08usfe.d)
9.3 Program Results
Program Results (f08usfe.r)