larrf Interface

public interface larrf

Given the initial representation L D L^T and its cluster of close eigenvalues (in a relative measure), W( CLSTRT ), W( CLSTRT+1 ), ... W( CLEND ), LARRF: finds a new relatively robust representation L D L^T - SIGMA I = L(+) D(+) L(+)^T such that at least one of the eigenvalues of L(+) D(+) L(+)^T is relatively isolated.


Subroutines

public pure subroutine dlarrf(n, d, l, ld, clstrt, clend, w, wgap, werr, spdiam, clgapl, clgapr, pivmin, sigma, dplus, lplus, work, info)

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: d(*)
real(kind=dp), intent(in) :: l(*)
real(kind=dp), intent(in) :: ld(*)
integer(kind=ilp), intent(in) :: clstrt
integer(kind=ilp), intent(in) :: clend
real(kind=dp), intent(in) :: w(*)
real(kind=dp), intent(inout) :: wgap(*)
real(kind=dp), intent(in) :: werr(*)
real(kind=dp), intent(in) :: spdiam
real(kind=dp), intent(in) :: clgapl
real(kind=dp), intent(in) :: clgapr
real(kind=dp), intent(in) :: pivmin
real(kind=dp), intent(out) :: sigma
real(kind=dp), intent(out) :: dplus(*)
real(kind=dp), intent(out) :: lplus(*)
real(kind=dp), intent(out) :: work(*)
integer(kind=ilp), intent(out) :: info

public pure subroutine slarrf(n, d, l, ld, clstrt, clend, w, wgap, werr, spdiam, clgapl, clgapr, pivmin, sigma, dplus, lplus, work, info)

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(in) :: d(*)
real(kind=sp), intent(in) :: l(*)
real(kind=sp), intent(in) :: ld(*)
integer(kind=ilp), intent(in) :: clstrt
integer(kind=ilp), intent(in) :: clend
real(kind=sp), intent(in) :: w(*)
real(kind=sp), intent(inout) :: wgap(*)
real(kind=sp), intent(in) :: werr(*)
real(kind=sp), intent(in) :: spdiam
real(kind=sp), intent(in) :: clgapl
real(kind=sp), intent(in) :: clgapr
real(kind=sp), intent(in) :: pivmin
real(kind=sp), intent(out) :: sigma
real(kind=sp), intent(out) :: dplus(*)
real(kind=sp), intent(out) :: lplus(*)
real(kind=sp), intent(out) :: work(*)
integer(kind=ilp), intent(out) :: info

Module Procedures

public interface stdlib_dlarrf()

Arguments

None

public interface stdlib_slarrf()

Arguments

None