1 SUBROUTINE dgeqr2( M, N, A, LDA, TAU, WORK, INFO )
9 INTEGER INFO, LDA, M, N
12 DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * )
70 parameter( one = 1.0d+0 )
89 ELSE IF( n.LT.0 )
THEN
91 ELSE IF( lda.LT.max( 1, m ) )
THEN
95 CALL xerbla(
'DGEQR2', -info )
105 CALL dlarfg( m-i+1, a( i, i ), a( min( i+1, m ), i ), 1,
113 CALL dlarf(
'Left', m-i+1, n-i, a( i, i ), 1, tau( i ),
114 $ a( i, i+1 ), lda, work )
subroutine dgeqr2(M, N, A, LDA, TAU, WORK, INFO)
subroutine dlarf(SIDE, M, N, V, INCV, TAU, C, LDC, WORK)
subroutine dlarfg(N, ALPHA, X, INCX, TAU)
subroutine xerbla(SRNAME, INFO)