removed extranous changes (hopefully x2)

Reference-LAPACK · Nov 30, 2024 · 273ab49 · 273ab49
1 parent 354a16f
commit 273ab49
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/SRC/dgelqf.f b/SRC/dgelqf.f
@@ -252,7 +252,8 @@ SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO )
 *              H = H(i) H(i+1) . . . H(i+ib-1)
 *
                CALL DLARFT( 'Forward', 'Rowwise', N-I+1, IB, A( I,
-     $                      I ), LDA, TAU( I ), WORK, LDWORK )
+     $                      I ), 
+     $                      LDA, TAU( I ), WORK, LDWORK )
 *
 *              Apply H to A(i+ib:m,i:n) from the right
 *

diff --git a/SRC/dgeqlf.f b/SRC/dgeqlf.f
@@ -257,8 +257,7 @@ SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO )
 *              H = H(i+ib-1) . . . H(i+1) H(i)
 *
                CALL DLARFT( 'Backward', 'Columnwise', M-K+I+IB-1, IB,
-     $                      A( 1, N-K+I ), LDA, TAU( I ), WORK,
-     $                      LDWORK )
+     $                      A( 1, N-K+I ), LDA, TAU( I ), WORK, LDWORK )
 *
 *              Apply H**T to A(1:m-k+i+ib-1,1:n-k+i-1) from the left
 *

diff --git a/SRC/dgerqf.f b/SRC/dgerqf.f
@@ -256,7 +256,7 @@ SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO )
 *              Form the triangular factor of the block reflector
 *              H = H(i+ib-1) . . . H(i+1) H(i)
 *
-               CALL DLARFT( 'Backward', 'Rowwise', N-K+I+IB-1, IB, 
+               CALL DLARFT( 'Backward', 'Rowwise', N-K+I+IB-1, IB,
      $                      A( M-K+I, 1 ), LDA, TAU( I ), WORK, LDWORK )
 *
 *              Apply H to A(1:m-k+i-1,1:n-k+i+ib-1) from the right

diff --git a/SRC/dorglq.f b/SRC/dorglq.f
@@ -254,7 +254,7 @@ SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
 *              H = H(i) H(i+1) . . . H(i+ib-1)
 *
                CALL DLARFT( 'Forward', 'Rowwise', N-I+1, IB, A( I,
-     $                      I ), 
+     $                      I ),
      $                      LDA, TAU( I ), WORK, LDWORK )
 *
 *              Apply H**T to A(i+ib:m,i:n) from the right