lasd8 Interface

public interface lasd8

LASD8 finds the square roots of the roots of the secular equation, as defined by the values in DSIGMA and Z. It makes the appropriate calls to DLASD4, and stores, for each element in D, the distance to its two nearest poles (elements in DSIGMA). It also updates the arrays VF and VL, the first and last components of all the right singular vectors of the original bidiagonal matrix. LASD8 is called from DLASD6.


Subroutines

public pure subroutine dlasd8(icompq, k, d, z, vf, vl, difl, difr, lddifr, dsigma, work, info)

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: icompq
integer(kind=ilp), intent(in) :: k
real(kind=dp), intent(out) :: d(*)
real(kind=dp), intent(inout) :: z(*)
real(kind=dp), intent(inout) :: vf(*)
real(kind=dp), intent(inout) :: vl(*)
real(kind=dp), intent(out) :: difl(*)
real(kind=dp), intent(out) :: difr(lddifr,*)
integer(kind=ilp), intent(in) :: lddifr
real(kind=dp), intent(inout) :: dsigma(*)
real(kind=dp), intent(out) :: work(*)
integer(kind=ilp), intent(out) :: info

public pure subroutine slasd8(icompq, k, d, z, vf, vl, difl, difr, lddifr, dsigma, work, info)

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: icompq
integer(kind=ilp), intent(in) :: k
real(kind=sp), intent(out) :: d(*)
real(kind=sp), intent(inout) :: z(*)
real(kind=sp), intent(inout) :: vf(*)
real(kind=sp), intent(inout) :: vl(*)
real(kind=sp), intent(out) :: difl(*)
real(kind=sp), intent(out) :: difr(lddifr,*)
integer(kind=ilp), intent(in) :: lddifr
real(kind=sp), intent(inout) :: dsigma(*)
real(kind=sp), intent(out) :: work(*)
integer(kind=ilp), intent(out) :: info

Module Procedures

public interface stdlib_dlasd8()

Arguments

None

public interface stdlib_slasd8()

Arguments

None