125 SUBROUTINE zgeqr2p( M, N, A, LDA, TAU, WORK, INFO )
133 INTEGER INFO, LDA, M, N
136 COMPLEX*16 A( lda, * ), TAU( * ), WORK( * )
143 parameter ( one = ( 1.0d+0, 0.0d+0 ) )
153 INTRINSIC dconjg, max, min
162 ELSE IF( n.LT.0 )
THEN
164 ELSE IF( lda.LT.max( 1, m ) )
THEN
168 CALL xerbla(
'ZGEQR2P', -info )
178 CALL zlarfgp( m-i+1, a( i, i ), a( min( i+1, m ), i ), 1,
186 CALL zlarf(
'Left', m-i+1, n-i, a( i, i ), 1,
187 $ dconjg( tau( i ) ), a( i, i+1 ), lda, work )
subroutine zlarf(SIDE, M, N, V, INCV, TAU, C, LDC, WORK)
ZLARF applies an elementary reflector to a general rectangular matrix.
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zlarfgp(N, ALPHA, X, INCX, TAU)
ZLARFGP generates an elementary reflector (Householder matrix) with non-negative beta.
subroutine zgeqr2p(M, N, A, LDA, TAU, WORK, INFO)
ZGEQR2P computes the QR factorization of a general rectangular matrix with non-negative diagonal elem...