Merge pull request #3816 from martin-frbg/lapack638

martin-frbg · web-flow · commit 35dac5677afc · 2022-11-13T20:38:42.000+01:00
Fix workspace calculation in GEQRF/GERQF (Reference-LAPACK PR 638)
diff --git a/lapack-netlib/SRC/sgeqrf.f b/lapack-netlib/SRC/sgeqrf.f
@@ -204,7 +204,7 @@ SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO )
       END IF
 *
 *     Quick return if possible
-*
+*     
       IF( K.EQ.0 ) THEN
          WORK( 1 ) = 1
          RETURN

Original file line number	Diff line number	Diff line change
`@@ -204,7 +204,7 @@ SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO )`
`204`	`204`	`END IF`
`205`	`205`	`*`
`206`	`206`	`* Quick return if possible`
`207`		`-*`
	`207`	`+*`
`208`	`208`	`IF( K.EQ.0 ) THEN`
`209`	`209`	`WORK( 1 ) = 1`
`210`	`210`	`RETURN`