128 SUBROUTINE zgelq2( M, N, A, LDA, TAU, WORK, INFO )
135 INTEGER INFO, LDA, M, N
138 COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * )
145 parameter( one = ( 1.0d+0, 0.0d+0 ) )
164 ELSE IF( n.LT.0 )
THEN
166 ELSE IF( lda.LT.max( 1, m ) )
THEN
170 CALL xerbla(
'ZGELQ2', -info )
180 CALL zlacgv( n-i+1, a( i, i ), lda )
182 CALL zlarfg( n-i+1, alpha, a( i, min( i+1, n ) ), lda,
189 CALL zlarf(
'Right', m-i, n-i+1, a( i, i ), lda, tau( i ),
190 $ a( i+1, i ), lda, work )
193 CALL zlacgv( n-i+1, a( i, i ), lda )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zgelq2(M, N, A, LDA, TAU, WORK, INFO)
ZGELQ2 computes the LQ factorization of a general rectangular matrix using an unblocked algorithm.
subroutine zlacgv(N, X, INCX)
ZLACGV conjugates a complex vector.
subroutine zlarf(SIDE, M, N, V, INCV, TAU, C, LDC, WORK)
ZLARF applies an elementary reflector to a general rectangular matrix.
subroutine zlarfg(N, ALPHA, X, INCX, TAU)
ZLARFG generates an elementary reflector (Householder matrix).