OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Merge pull request #3907 from martin-frbg/lapack794 

Fix double subtraction of N_DEFLATE from istop in ?LAQZ0 (LAPACK 794)
tags/v0.3.22^2
Martin Kroeker GitHub 2 years ago
parent
15c2571c93 24ceb0fc40
commit
fa3bc574d1
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +1
    -1
      lapack-netlib/SRC/claqz0.f
  2. +1
    -1
      lapack-netlib/SRC/dlaqz0.f
  3. +1
    -1
      lapack-netlib/SRC/slaqz0.f
  4. +1
    -1
      lapack-netlib/SRC/zlaqz0.f

+ 1
- 1
lapack-netlib/SRC/claqz0.f View File

@@ -644,7 +644,7 @@


NS = MIN( NSHIFTS, ISTOP-ISTART2 ) NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED ) NS = MIN( NS, N_UNDEFLATED )
SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1
SHIFTPOS = ISTOP-N_UNDEFLATED+1


IF ( MOD( LD, 6 ) .EQ. 0 ) THEN IF ( MOD( LD, 6 ) .EQ. 0 ) THEN
* *


+ 1
- 1
lapack-netlib/SRC/dlaqz0.f View File

@@ -678,7 +678,7 @@


NS = MIN( NSHIFTS, ISTOP-ISTART2 ) NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED ) 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 * Shuffle shifts to put double shifts in front
* This ensures that we don't split up a double shift * This ensures that we don't split up a double shift


+ 1
- 1
lapack-netlib/SRC/slaqz0.f View File

@@ -675,7 +675,7 @@


NS = MIN( NSHIFTS, ISTOP-ISTART2 ) NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED ) 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 * Shuffle shifts to put double shifts in front
* This ensures that we don't split up a double shift * This ensures that we don't split up a double shift


+ 1
- 1
lapack-netlib/SRC/zlaqz0.f View File

@@ -646,7 +646,7 @@


NS = MIN( NSHIFTS, ISTOP-ISTART2 ) NS = MIN( NSHIFTS, ISTOP-ISTART2 )
NS = MIN( NS, N_UNDEFLATED ) NS = MIN( NS, N_UNDEFLATED )
SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1
SHIFTPOS = ISTOP-N_UNDEFLATED+1


IF ( MOD( LD, 6 ) .EQ. 0 ) THEN IF ( MOD( LD, 6 ) .EQ. 0 ) THEN
* *


Write Preview
Loading…
Cancel
Save