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

Improve convergence of DLAED4/SLAED4 (Reference-LAPACK PR655)

tags/v0.3.22^2
Martin Kroeker GitHub 2 years ago
parent
880a3fb20f
commit
afcd7e88b6
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 10 additions and 4 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +5
    -2
      lapack-netlib/SRC/dlaed4.f
  2. +5
    -2
      lapack-netlib/SRC/slaed4.f

+ 5
- 2
lapack-netlib/SRC/dlaed4.f View File

@@ -328,9 +328,12 @@
IF( C.LT.ZERO )
$ C = ABS( C )
IF( C.EQ.ZERO ) THEN
* ETA = B/A
* ETA = B/A
* ETA = RHO - TAU
ETA = DLTUB - TAU
* ETA = DLTUB - TAU
*
* Update proposed by Li, Ren-Cang:
ETA = -W / ( DPSI+DPHI )
ELSE IF( A.GE.ZERO ) THEN
ETA = ( A+SQRT( ABS( A*A-FOUR*B*C ) ) ) / ( TWO*C )
ELSE


+ 5
- 2
lapack-netlib/SRC/slaed4.f View File

@@ -328,9 +328,12 @@
IF( C.LT.ZERO )
$ C = ABS( C )
IF( C.EQ.ZERO ) THEN
* ETA = B/A
* ETA = B/A
* ETA = RHO - TAU
ETA = DLTUB - TAU
* ETA = DLTUB - TAU
*
* Update proposed by Li, Ren-Cang:
ETA = -W / ( DPSI+DPHI )
ELSE IF( A.GE.ZERO ) THEN
ETA = ( A+SQRT( ABS( A*A-FOUR*B*C ) ) ) / ( TWO*C )
ELSE


Write Preview
Loading…
Cancel
Save