diff options
| author | julie <julielangou@users.noreply.github.com> | 2010-06-18 00:19:59 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2010-06-18 00:19:59 +0000 |
| commit | 84e8c51fe13444a343ce148bd3747ea57f534af8 (patch) | |
| tree | c4918654c58901d45cb2b66106a7cb4065e9871c /SRC/sgerq2.f | |
| parent | 7eff2415362c6b60a94aad318940c19b8770f0d7 (diff) | |
Step 1 of xlarfp : back out the old changes (need to run testing before going on)
Diffstat (limited to 'SRC/sgerq2.f')
| -rw-r--r-- | SRC/sgerq2.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/sgerq2.f b/SRC/sgerq2.f index e5279094..b8f11be0 100644 --- a/SRC/sgerq2.f +++ b/SRC/sgerq2.f @@ -76,7 +76,7 @@ REAL AII * .. * .. External Subroutines .. - EXTERNAL SLARF, SLARFP, XERBLA + EXTERNAL SLARF, SLARFG, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -105,7 +105,7 @@ * Generate elementary reflector H(i) to annihilate * A(m-k+i,1:n-k+i-1) * - CALL SLARFP( N-K+I, A( M-K+I, N-K+I ), A( M-K+I, 1 ), LDA, + CALL SLARFG( N-K+I, A( M-K+I, N-K+I ), A( M-K+I, 1 ), LDA, $ TAU( I ) ) * * Apply H(i) to A(1:m-k+i-1,1:n-k+i) from the right |