floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #4402 from martin-frbg/lapack967 

Fix an uninitialized read (use of wrong variable) in ?BBCSD (Reference-LAPACK PR 967)
This commit is contained in:
Martin Kroeker 2023-12-31 16:31:28 +01:00 committed by GitHub
parent 4a15d72420 00d7476b4b
commit 534de14a02
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/cbbcsd.f
View File

@ -805,7 +805,7 @@
CALL SLARTGP( B22BULGE, B22E(I-1), RWORK(IU2SN+I-1),
$ RWORK(IU2CS+I-1), R )
ELSE IF( NU .LT. MU ) THEN
CALL SLARTGS( B21E(I), B21E(I+1), NU, RWORK(IU2CS+I-1),
CALL SLARTGS( B21E(I), B21D(I+1), NU, RWORK(IU2CS+I-1),
$ RWORK(IU2SN+I-1) )
ELSE
CALL SLARTGS( B22D(I), B22E(I), MU, RWORK(IU2CS+I-1),

2
lapack-netlib/SRC/dbbcsd.f
View File

@ -805,7 +805,7 @@
CALL DLARTGP( B22BULGE, B22E(I-1), WORK(IU2SN+I-1),
$ WORK(IU2CS+I-1), R )
ELSE IF( NU .LT. MU ) THEN
CALL DLARTGS( B21E(I), B21E(I+1), NU, WORK(IU2CS+I-1),
CALL DLARTGS( B21E(I), B21D(I+1), NU, WORK(IU2CS+I-1),
$ WORK(IU2SN+I-1) )
ELSE
CALL DLARTGS( B22D(I), B22E(I), MU, WORK(IU2CS+I-1),

2
lapack-netlib/SRC/sbbcsd.f
View File

@ -805,7 +805,7 @@
CALL SLARTGP( B22BULGE, B22E(I-1), WORK(IU2SN+I-1),
$ WORK(IU2CS+I-1), R )
ELSE IF( NU .LT. MU ) THEN
CALL SLARTGS( B21E(I), B21E(I+1), NU, WORK(IU2CS+I-1),
CALL SLARTGS( B21E(I), B21D(I+1), NU, WORK(IU2CS+I-1),
$ WORK(IU2SN+I-1) )
ELSE
CALL SLARTGS( B22D(I), B22E(I), MU, WORK(IU2CS+I-1),

2
lapack-netlib/SRC/zbbcsd.f
View File

@ -804,7 +804,7 @@
CALL DLARTGP( B22BULGE, B22E(I-1), RWORK(IU2SN+I-1),
$ RWORK(IU2CS+I-1), R )
ELSE IF( NU .LT. MU ) THEN
CALL DLARTGS( B21E(I), B21E(I+1), NU, RWORK(IU2CS+I-1),
CALL DLARTGS( B21E(I), B21D(I+1), NU, RWORK(IU2CS+I-1),
$ RWORK(IU2SN+I-1) )
ELSE
CALL DLARTGS( B22D(I), B22E(I), MU, RWORK(IU2CS+I-1),