laed6 Interface

public interface laed6

LAED6 computes the positive or negative root (closest to the origin) of z(1) z(2) z(3) f(x) = rho + --------- + ---------- + --------- d(1)-x d(2)-x d(3)-x It is assumed that if ORGATI = .true. the root is between d(2) and d(3); otherwise it is between d(1) and d(2) This routine will be called by DLAED4 when necessary. In most cases, the root sought is the smallest in magnitude, though it might not be in some extremely rare situations.


Subroutines

public pure subroutine dlaed6(kniter, orgati, rho, d, z, finit, tau, info)

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: kniter
logical(kind=lk), intent(in) :: orgati
real(kind=dp), intent(in) :: rho
real(kind=dp), intent(in) :: d(3)
real(kind=dp), intent(in) :: z(3)
real(kind=dp), intent(in) :: finit
real(kind=dp), intent(out) :: tau
integer(kind=ilp), intent(out) :: info

public pure subroutine slaed6(kniter, orgati, rho, d, z, finit, tau, info)

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: kniter
logical(kind=lk), intent(in) :: orgati
real(kind=sp), intent(in) :: rho
real(kind=sp), intent(in) :: d(3)
real(kind=sp), intent(in) :: z(3)
real(kind=sp), intent(in) :: finit
real(kind=sp), intent(out) :: tau
integer(kind=ilp), intent(out) :: info

Module Procedures

public interface stdlib_dlaed6()

Arguments

None

public interface stdlib_slaed6()

Arguments

None