Skip to content

Try improve convergence dlaed4 #655

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Oct 12, 2022
Merged

Try improve convergence dlaed4 #655

Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
db0abe5
Improve dlaed4 thanks to Li, Ren-Cang
weslleyspereira Mar 15, 2022
5a392d9
Improve slaed4 following the same strategy fromdlaed4
weslleyspereira Mar 15, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Improve slaed4 following the same strategy fromdlaed4
  • Loading branch information
@weslleyspereira
weslleyspereira committed Mar 15, 2022
commit 5a392d9cc5153517b87461ea2319ba0faac521d5
7 changes: 5 additions & 2 deletions SRC/slaed4.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -328,9 +328,12 @@ SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO )
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
Expand Down