version 1.1.1.1, 2010/01/26 15:22:45
|
version 1.5, 2010/08/07 13:18:07
|
Line 1
|
Line 1
|
SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) |
SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) |
* |
* |
* -- LAPACK routine (version 3.2) -- |
* -- LAPACK routine (version 3.2.2) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* November 2006 |
* June 2010 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER L, LDA, M, N |
INTEGER L, LDA, M, N |
Line 90
|
Line 90
|
INTEGER I |
INTEGER I |
* .. |
* .. |
* .. External Subroutines .. |
* .. External Subroutines .. |
EXTERNAL DLARFP, DLARZ |
EXTERNAL DLARFG, DLARZ |
* .. |
* .. |
* .. Executable Statements .. |
* .. Executable Statements .. |
* |
* |
Line 112
|
Line 112
|
* Generate elementary reflector H(i) to annihilate |
* Generate elementary reflector H(i) to annihilate |
* [ A(i,i) A(i,n-l+1:n) ] |
* [ A(i,i) A(i,n-l+1:n) ] |
* |
* |
CALL DLARFP( L+1, A( I, I ), A( I, N-L+1 ), LDA, TAU( I ) ) |
CALL DLARFG( L+1, A( I, I ), A( I, N-L+1 ), LDA, TAU( I ) ) |
* |
* |
* Apply H(i) to A(1:i-1,i:n) from the right |
* Apply H(i) to A(1:i-1,i:n) from the right |
* |
* |