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/cgelq2.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/cgelq2.f')
-rw-r--r-- | SRC/cgelq2.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/cgelq2.f b/SRC/cgelq2.f index 529c6a3f..583f5eee 100644 --- a/SRC/cgelq2.f +++ b/SRC/cgelq2.f @@ -74,7 +74,7 @@ COMPLEX ALPHA * .. * .. External Subroutines .. - EXTERNAL CLACGV, CLARF, CLARFP, XERBLA + EXTERNAL CLACGV, CLARF, CLARFG, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -104,7 +104,7 @@ * CALL CLACGV( N-I+1, A( I, I ), LDA ) ALPHA = A( I, I ) - CALL CLARFP( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, + CALL CLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAU( I ) ) IF( I.LT.M ) THEN * |