From 3e2d52c502fc85c29c25a2e49ab8a46d4b1bebc2 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 13 Nov 2022 13:00:52 +0100 Subject: [PATCH] Fix workspace calculation in GEQRF/GERQF (Reference-LAPACK PR 638) --- lapack-netlib/SRC/sgeqrf.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/sgeqrf.f b/lapack-netlib/SRC/sgeqrf.f index f47d8bf32..b24615f7a 100644 --- a/lapack-netlib/SRC/sgeqrf.f +++ b/lapack-netlib/SRC/sgeqrf.f @@ -204,7 +204,7 @@ END IF * * Quick return if possible -* +* IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN