corrected comment in update the i-th row of A in DLAQP3RK

scr2016 · scr2016 · commit 667f08c385b7 · 2023-11-14T04:42:09.000-08:00
diff --git a/SRC/dlaqp3rk.f b/SRC/dlaqp3rk.f
@@ -844,7 +844,8 @@ SUBROUTINE DLAQP3RK( M, N, NRHS, IOFFSET, NB, ABSTOL,
 *        ===============================================================
 *
 *        Update the current I-th row of A:
-*        A(I,K+1:N) := A(I,K+1:N) - A(I,1:K)*F(K+1:N,1:K)**T.
+*        A(I,K+1:N+NRHS) := A(I,K+1:N+NRHS)
+*                         - A(I,1:K)*F(K+1:N+NRHS,1:K)**T.
 *
          IF( K.LT.N+NRHS ) THEN
             CALL DGEMV( 'No transpose', N+NRHS-K, K, -ONE,

Original file line number	Diff line number	Diff line change
`@@ -844,7 +844,8 @@ SUBROUTINE DLAQP3RK( M, N, NRHS, IOFFSET, NB, ABSTOL,`
`844`	`844`	`* ===============================================================`
`845`	`845`	`*`
`846`	`846`	`* Update the current I-th row of A:`
`847`		`-* A(I,K+1:N) := A(I,K+1:N) - A(I,1:K)F(K+1:N,1:K)*T.`
	`847`	`+* A(I,K+1:N+NRHS) := A(I,K+1:N+NRHS)`
	`848`	`+* - A(I,1:K)F(K+1:N+NRHS,1:K)*T.`
`848`	`849`	`*`
`849`	`850`	`IF( K.LT.N+NRHS ) THEN`
`850`	`851`	`CALL DGEMV( 'No transpose', N+NRHS-K, K, -ONE,`