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

Fix double subtraction of N_DEFLATE from istop in ?LAQZ0 (LAPACK 794)

This commit is contained in:
Martin Kroeker 2023-02-14 12:43:41 +01:00 committed by GitHub
parent 2158dc64a3
commit 24ceb0fc40
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/claqz0.f
View File

@ -644,7 +644,7 @@
NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED )
SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1
SHIFTPOS = ISTOP-N_UNDEFLATED+1
IF ( MOD( LD, 6 ) .EQ. 0 ) THEN
*

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

@ -678,7 +678,7 @@
NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED )
SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1
SHIFTPOS = ISTOP-N_UNDEFLATED+1
*
* Shuffle shifts to put double shifts in front
* This ensures that we don't split up a double shift

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

@ -675,7 +675,7 @@
NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED )
SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1
SHIFTPOS = ISTOP-N_UNDEFLATED+1
*
* Shuffle shifts to put double shifts in front
* This ensures that we don't split up a double shift

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

@ -646,7 +646,7 @@
NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED )
SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1
SHIFTPOS = ISTOP-N_UNDEFLATED+1
IF ( MOD( LD, 6 ) .EQ. 0 ) THEN
*