From 84e8c51fe13444a343ce148bd3747ea57f534af8 Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
Date: Fri, 18 Jun 2010 00:19:59 +0000
Subject:  Step 1 of xlarfp : back out the old changes (need to run testing
 before going on)

---
 SRC/cgelq2.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'SRC/cgelq2.f')

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
 *
-- 
cgit v1.2.3