115 SUBROUTINE cupgtr( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO )
127 COMPLEX ap( * ), q( ldq, * ), tau( * ), work( * )
134 parameter( czero = ( 0.0e+0, 0.0e+0 ),
135 $ cone = ( 1.0e+0, 0.0e+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(
'CUPGTR', -info )
198 CALL
cung2l( n-1, n-1, n-1, q, ldq, tau, work, iinfo )
225 CALL
cung2r( n-1, n-1, n-1, q( 2, 2 ), ldq, tau, work,
subroutine cung2l(M, N, K, A, LDA, TAU, WORK, INFO)
CUNG2L generates all or part of the unitary matrix Q from a QL factorization determined by cgeqlf (un...
subroutine xerbla(SRNAME, INFO)
XERBLA
logical function lsame(CA, CB)
LSAME
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine cung2r(M, N, K, A, LDA, TAU, WORK, INFO)
CUNG2R
subroutine cupgtr(UPLO, N, AP, TAU, Q, LDQ, WORK, INFO)
CUPGTR