129 SUBROUTINE cgeqr2( M, N, A, LDA, TAU, WORK, INFO )
136 INTEGER INFO, LDA, M, N
139 COMPLEX A( LDA, * ), TAU( * ), WORK( * )
146 parameter( one = ( 1.0e+0, 0.0e+0 ) )
156 INTRINSIC conjg, max, min
165 ELSE IF( n.LT.0 )
THEN
167 ELSE IF( lda.LT.max( 1, m ) )
THEN
171 CALL xerbla(
'CGEQR2', -info )
181 CALL clarfg( m-i+1, a( i, i ), a( min( i+1, m ), i ), 1,
189 CALL clarf(
'Left', m-i+1, n-i, a( i, i ), 1,
190 $ conjg( tau( i ) ), a( i, i+1 ), lda, work )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cgeqr2(M, N, A, LDA, TAU, WORK, INFO)
CGEQR2 computes the QR factorization of a general rectangular matrix using an unblocked algorithm.
subroutine clarf(SIDE, M, N, V, INCV, TAU, C, LDC, WORK)
CLARF applies an elementary reflector to a general rectangular matrix.
subroutine clarfg(N, ALPHA, X, INCX, TAU)
CLARFG generates an elementary reflector (Householder matrix).