115 SUBROUTINE zupgtr( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO )
127 COMPLEX*16 AP( * ), Q( ldq, * ), TAU( * ), WORK( * )
133 COMPLEX*16 CZERO, CONE
134 parameter( czero = ( 0.0d+0, 0.0d+0 ),
135 $ cone = ( 1.0d+0, 0.0d+0 ) )
139 INTEGER I, IINFO, IJ, J
156 upper = lsame( uplo,
'U' )
157 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
159 ELSE IF( n.LT.0 )
THEN
161 ELSE IF( ldq.LT.max( 1, n ) )
THEN
165 CALL
xerbla(
'ZUPGTR', -info )
198 CALL
zung2l( n-1, n-1, n-1, q, ldq, tau, work, iinfo )
225 CALL
zung2r( n-1, n-1, n-1, q( 2, 2 ), ldq, tau, work,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zupgtr(UPLO, N, AP, TAU, Q, LDQ, WORK, INFO)
ZUPGTR
subroutine zung2l(M, N, K, A, LDA, TAU, WORK, INFO)
ZUNG2L generates all or part of the unitary matrix Q from a QL factorization determined by cgeqlf (un...
subroutine zung2r(M, N, K, A, LDA, TAU, WORK, INFO)
ZUNG2R