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