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

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

This commit is contained in:
Martin Kroeker 2022-11-21 21:18:39 +01:00 committed by GitHub
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -330,7 +330,10 @@
IF( C.EQ.ZERO ) THEN IF( C.EQ.ZERO ) THEN
* ETA = B/A * ETA = B/A
* ETA = RHO - TAU * 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 ELSE IF( A.GE.ZERO ) THEN
ETA = ( A+SQRT( ABS( A*A-FOUR*B*C ) ) ) / ( TWO*C ) ETA = ( A+SQRT( ABS( A*A-FOUR*B*C ) ) ) / ( TWO*C )
ELSE ELSE

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

@ -330,7 +330,10 @@
IF( C.EQ.ZERO ) THEN IF( C.EQ.ZERO ) THEN
* ETA = B/A * ETA = B/A
* ETA = RHO - TAU * 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 ELSE IF( A.GE.ZERO ) THEN
ETA = ( A+SQRT( ABS( A*A-FOUR*B*C ) ) ) / ( TWO*C ) ETA = ( A+SQRT( ABS( A*A-FOUR*B*C ) ) ) / ( TWO*C )
ELSE ELSE