Fix workspace calculation in GEQRF/GERQF (Reference-LAPACK PR 638)
This commit is contained in:
@@ -204,7 +204,7 @@
|
||||
END IF
|
||||
*
|
||||
* Quick return if possible
|
||||
*
|
||||
*
|
||||
IF( K.EQ.0 ) THEN
|
||||
WORK( 1 ) = 1
|
||||
RETURN
|
||||
|
||||
Reference in New Issue
Block a user