1CHBGVD(1) LAPACK driver routine (version 3.2) CHBGVD(1)
2
3
4
6 CHBGVD - computes all the eigenvalues, and optionally, the eigenvectors
7 of a complex generalized Hermitian-definite banded eigenproblem, of the
8 form A*x=(lambda)*B*x
9
11 SUBROUTINE CHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z,
12 LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO
13 )
14
15 CHARACTER JOBZ, UPLO
16
17 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LRWORK,
18 LWORK, N
19
20 INTEGER IWORK( * )
21
22 REAL RWORK( * ), W( * )
23
24 COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), Z( LDZ, * )
25
27 CHBGVD computes all the eigenvalues, and optionally, the eigenvectors
28 of a complex generalized Hermitian-definite banded eigenproblem, of the
29 form A*x=(lambda)*B*x. Here A and B are assumed to be Hermitian and
30 banded, and B is also positive definite. If eigenvectors are desired,
31 it uses a divide and conquer algorithm.
32 The divide and conquer algorithm makes very mild assumptions about
33 floating point arithmetic. It will work on machines with a guard digit
34 in add/subtract, or on those binary machines without guard digits which
35 subtract like the Cray X-MP, Cray Y-MP, Cray C-90, or Cray-2. It could
36 conceivably fail on hexadecimal or decimal machines without guard dig‐
37 its, but we know of none.
38
40 JOBZ (input) CHARACTER*1
41 = 'N': Compute eigenvalues only;
42 = 'V': Compute eigenvalues and eigenvectors.
43
44 UPLO (input) CHARACTER*1
45 = 'U': Upper triangles of A and B are stored;
46 = 'L': Lower triangles of A and B are stored.
47
48 N (input) INTEGER
49 The order of the matrices A and B. N >= 0.
50
51 KA (input) INTEGER
52 The number of superdiagonals of the matrix A if UPLO = 'U', or
53 the number of subdiagonals if UPLO = 'L'. KA >= 0.
54
55 KB (input) INTEGER
56 The number of superdiagonals of the matrix B if UPLO = 'U', or
57 the number of subdiagonals if UPLO = 'L'. KB >= 0.
58
59 AB (input/output) COMPLEX array, dimension (LDAB, N)
60 On entry, the upper or lower triangle of the Hermitian band
61 matrix A, stored in the first ka+1 rows of the array. The j-th
62 column of A is stored in the j-th column of the array AB as
63 follows: if UPLO = 'U', AB(ka+1+i-j,j) = A(i,j) for max(1,j-
64 ka)<=i<=j; if UPLO = 'L', AB(1+i-j,j) = A(i,j) for
65 j<=i<=min(n,j+ka). On exit, the contents of AB are destroyed.
66
67 LDAB (input) INTEGER
68 The leading dimension of the array AB. LDAB >= KA+1.
69
70 BB (input/output) COMPLEX array, dimension (LDBB, N)
71 On entry, the upper or lower triangle of the Hermitian band
72 matrix B, stored in the first kb+1 rows of the array. The j-th
73 column of B is stored in the j-th column of the array BB as
74 follows: if UPLO = 'U', BB(kb+1+i-j,j) = B(i,j) for max(1,j-
75 kb)<=i<=j; if UPLO = 'L', BB(1+i-j,j) = B(i,j) for
76 j<=i<=min(n,j+kb). On exit, the factor S from the split
77 Cholesky factorization B = S**H*S, as returned by CPBSTF.
78
79 LDBB (input) INTEGER
80 The leading dimension of the array BB. LDBB >= KB+1.
81
82 W (output) REAL array, dimension (N)
83 If INFO = 0, the eigenvalues in ascending order.
84
85 Z (output) COMPLEX array, dimension (LDZ, N)
86 If JOBZ = 'V', then if INFO = 0, Z contains the matrix Z of
87 eigenvectors, with the i-th column of Z holding the eigenvector
88 associated with W(i). The eigenvectors are normalized so that
89 Z**H*B*Z = I. If JOBZ = 'N', then Z is not referenced.
90
91 LDZ (input) INTEGER
92 The leading dimension of the array Z. LDZ >= 1, and if JOBZ =
93 'V', LDZ >= N.
94
95 WORK (workspace/output) COMPLEX array, dimension (MAX(1,LWORK))
96 On exit, if INFO=0, WORK(1) returns the optimal LWORK.
97
98 LWORK (input) INTEGER
99 The dimension of the array WORK. If N <= 1,
100 LWORK >= 1. If JOBZ = 'N' and N > 1, LWORK >= N. If JOBZ =
101 'V' and N > 1, LWORK >= 2*N**2. If LWORK = -1, then a
102 workspace query is assumed; the routine only calculates the
103 optimal sizes of the WORK, RWORK and IWORK arrays, returns
104 these values as the first entries of the WORK, RWORK and IWORK
105 arrays, and no error message related to LWORK or LRWORK or
106 LIWORK is issued by XERBLA.
107
108 RWORK (workspace/output) REAL array, dimension (MAX(1,LRWORK))
109 On exit, if INFO=0, RWORK(1) returns the optimal LRWORK.
110
111 LRWORK (input) INTEGER
112 The dimension of array RWORK. If N <= 1, LRWORK
113 >= 1. If JOBZ = 'N' and N > 1, LRWORK >= N. If JOBZ = 'V' and
114 N > 1, LRWORK >= 1 + 5*N + 2*N**2. If LRWORK = -1, then a
115 workspace query is assumed; the routine only calculates the
116 optimal sizes of the WORK, RWORK and IWORK arrays, returns
117 these values as the first entries of the WORK, RWORK and IWORK
118 arrays, and no error message related to LWORK or LRWORK or
119 LIWORK is issued by XERBLA.
120
121 IWORK (workspace/output) INTEGER array, dimension (MAX(1,LIWORK))
122 On exit, if INFO=0, IWORK(1) returns the optimal LIWORK.
123
124 LIWORK (input) INTEGER
125 The dimension of array IWORK. If JOBZ = 'N' or N <= 1, LIWORK
126 >= 1. If JOBZ = 'V' and N > 1, LIWORK >= 3 + 5*N. If LIWORK =
127 -1, then a workspace query is assumed; the routine only calcu‐
128 lates the optimal sizes of the WORK, RWORK and IWORK arrays,
129 returns these values as the first entries of the WORK, RWORK
130 and IWORK arrays, and no error message related to LWORK or
131 LRWORK or LIWORK is issued by XERBLA.
132
133 INFO (output) INTEGER
134 = 0: successful exit
135 < 0: if INFO = -i, the i-th argument had an illegal value
136 > 0: if INFO = i, and i is:
137 <= N: the algorithm failed to converge: i off-diagonal ele‐
138 ments of an intermediate tridiagonal form did not converge to
139 zero; > N: if INFO = N + i, for 1 <= i <= N, then CPBSTF
140 returned INFO = i: B is not positive definite. The factoriza‐
141 tion of B could not be completed and no eigenvalues or eigen‐
142 vectors were computed.
143
145 Based on contributions by
146 Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA
147
148
149
150 LAPACK driver routine (version 3.N2o)vember 2008 CHBGVD(1)