Browse Source
Merge pull request #5306 from martin-frbg/lapack1131
Fix missing initialization leading to bypassing corner cases in C/ZGEQP3RK (Reference-LAPACK PR #1131)
tags/v0.3.30
Martin Kroeker
GitHub
10 months ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with
2 additions and
0 deletions
-
lapack-netlib/SRC/cgeqp3rk.f
-
lapack-netlib/SRC/zgeqp3rk.f
|
|
|
@@ -761,6 +761,7 @@ |
|
|
|
* for the whole original matrix stored in A(1:M,1:N). |
|
|
|
* |
|
|
|
KP1 = ISAMAX( N, RWORK( 1 ), 1 ) |
|
|
|
MAXC2NRM = RWORK( KP1 ) |
|
|
|
* |
|
|
|
* ==================================================================. |
|
|
|
* |
|
|
|
|
|
|
|
@@ -760,6 +760,7 @@ |
|
|
|
* for the whole original matrix stored in A(1:M,1:N). |
|
|
|
* |
|
|
|
KP1 = IDAMAX( N, RWORK( 1 ), 1 ) |
|
|
|
MAXC2NRM = RWORK( KP1 ) |
|
|
|
* |
|
|
|
* ==================================================================. |
|
|
|
* |
|
|
|
|
