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
Next Next commit
Improve dlaed4 thanks to Li, Ren-Cang
  • Loading branch information
@weslleyspereira
weslleyspereira committed Mar 15, 2022
commit db0abe5e599f76ea01c53544238fc89b25475b27
7 changes: 5 additions & 2 deletions SRC/dlaed4.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -328,9 +328,12 @@ SUBROUTINE DLAED4( 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