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/dgeqr2.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/dgeqr2.f')
-rw-r--r-- | SRC/dgeqr2.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dgeqr2.f b/SRC/dgeqr2.f index 78c3aac9..a1b9f234 100644 --- a/SRC/dgeqr2.f +++ b/SRC/dgeqr2.f @@ -74,7 +74,7 @@ DOUBLE PRECISION AII * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARFP, XERBLA + EXTERNAL DLARF, DLARFG, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -102,7 +102,7 @@ * * Generate elementary reflector H(i) to annihilate A(i+1:m,i) * - CALL DLARFP( M-I+1, A( I, I ), A( MIN( I+1, M ), I ), 1, + CALL DLARFG( M-I+1, A( I, I ), A( MIN( I+1, M ), I ), 1, $ TAU( I ) ) IF( I.LT.N ) THEN * |