Browse Source
Merge pull request #3816 from martin-frbg/lapack638
Fix workspace calculation in GEQRF/GERQF (Reference-LAPACK PR 638)
tags/v0.3.22^2
Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with
1 additions and
1 deletions
-
lapack-netlib/SRC/sgeqrf.f
|
|
@@ -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 |
|
|
|