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)

This commit is contained in:
Martin Kroeker 2023-12-31 12:37:52 +01:00 committed by GitHub
parent bd787c8a1a
commit 1b668479de
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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),