Fix workspace calculation in GEQRF/GERQF (Reference-LAPACK PR 638)

This commit is contained in:
Martin Kroeker
2022-11-13 13:00:52 +01:00
committed by GitHub
parent 8c99d5d1b6
commit 3e2d52c502

View File

@@ -204,7 +204,7 @@
END IF
*
* Quick return if possible
*
*
IF( K.EQ.0 ) THEN
WORK( 1 ) = 1
RETURN