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/sgeqr2.f | |
| parent | 7eff2415362c6b60a94aad318940c19b8770f0d7 (diff) | |
| download | lapack-84e8c51fe13444a343ce148bd3747ea57f534af8.tar.gz lapack-84e8c51fe13444a343ce148bd3747ea57f534af8.tar.bz2 lapack-84e8c51fe13444a343ce148bd3747ea57f534af8.zip | |
Step 1 of xlarfp : back out the old changes (need to run testing before going on)
Diffstat (limited to 'SRC/sgeqr2.f')
| -rw-r--r-- | SRC/sgeqr2.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/sgeqr2.f b/SRC/sgeqr2.f index 4353cd63..c70fb981 100644 --- a/SRC/sgeqr2.f +++ b/SRC/sgeqr2.f @@ -74,7 +74,7 @@ REAL AII * .. * .. External Subroutines .. - EXTERNAL SLARF, SLARFP, XERBLA + EXTERNAL SLARF, SLARFG, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -102,7 +102,7 @@ * * Generate elementary reflector H(i) to annihilate A(i+1:m,i) * - CALL SLARFP( M-I+1, A( I, I ), A( MIN( I+1, M ), I ), 1, + CALL SLARFG( M-I+1, A( I, I ), A( MIN( I+1, M ), I ), 1, $ TAU( I ) ) IF( I.LT.N ) THEN * |