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

Merge pull request #3907 from martin-frbg/lapack794

Browse Source 
Fix double subtraction of N_DEFLATE from istop in ?LAQZ0 (LAPACK 794)
This commit is contained in:
Martin Kroeker
2023-02-14 19:34:37 +01:00
committed by GitHub
parent 15c2571c93 24ceb0fc40
commit fa3bc574d1
4 changed files with 4 additions and 4 deletions
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
*