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

Fix uninitialized read/wrong variable (Reference-LAPACK PR 967)

Browse Source
This commit is contained in:
Martin Kroeker
2023-12-31 12:35:37 +01:00
committed by GitHub
parent 5a20bc5e02
commit d3451af03f
1 changed files with 1 additions and 1 deletions
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),