122 SUBROUTINE cgeqr2p( M, N, A, LDA, TAU, WORK, INFO )
130 INTEGER info, lda, m, n
133 COMPLEX a( lda, * ), tau( * ), work( * )
140 parameter( one = ( 1.0e+0, 0.0e+0 ) )
150 INTRINSIC conjg, max, min
159 ELSE IF( n.LT.0 )
THEN
161 ELSE IF( lda.LT.max( 1, m ) )
THEN
165 CALL
xerbla(
'CGEQR2P', -info )
175 CALL
clarfgp( m-i+1, a( i, i ), a( min( i+1, m ), i ), 1,
183 CALL
clarf(
'Left', m-i+1, n-i, a( i, i ), 1,
184 $ conjg( tau( i ) ), a( i, i+1 ), lda, work )