diff options
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 * |