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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

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