165 SUBROUTINE chpgv( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK,
175 INTEGER info, itype, ldz, n
178 REAL rwork( * ), w( * )
179 COMPLEX ap( * ), bp( * ), work( * ), z( ldz, * )
200 wantz =
lsame( jobz,
'V' )
201 upper =
lsame( uplo,
'U' )
204 IF( itype.LT.1 .OR. itype.GT.3 )
THEN
206 ELSE IF( .NOT.( wantz .OR.
lsame( jobz,
'N' ) ) )
THEN
208 ELSE IF( .NOT.( upper .OR.
lsame( uplo,
'L' ) ) )
THEN
210 ELSE IF( n.LT.0 )
THEN
212 ELSE IF( ldz.LT.1 .OR. ( wantz .AND. ldz.LT.n ) )
THEN
216 CALL
xerbla(
'CHPGV ', -info )
227 CALL
cpptrf( uplo, n, bp, info )
235 CALL
chpgst( itype, uplo, n, ap, bp, info )
236 CALL
chpev( jobz, uplo, n, ap, w, z, ldz, work, rwork, info )
245 IF( itype.EQ.1 .OR. itype.EQ.2 )
THEN
257 CALL
ctpsv( uplo, trans,
'Non-unit', n, bp, z( 1, j ),
261 ELSE IF( itype.EQ.3 )
THEN
273 CALL
ctpmv( uplo, trans,
'Non-unit', n, bp, z( 1, j ),