trsna Interface

public interface trsna

TRSNA estimates reciprocal condition numbers for specified eigenvalues and/or right eigenvectors of a complex upper triangular matrix T (or of any matrix QTQ**H with Q unitary).


Subroutines

public pure subroutine ctrsna(job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, rwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: job
character(len=1), intent(in) :: howmny
logical(kind=lk), intent(in) :: select(*)
integer(kind=ilp), intent(in) :: n
complex(kind=sp), intent(in) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt
complex(kind=sp), intent(in) :: vl(ldvl,*)
integer(kind=ilp), intent(in) :: ldvl
complex(kind=sp), intent(in) :: vr(ldvr,*)
integer(kind=ilp), intent(in) :: ldvr
real(kind=sp), intent(out) :: s(*)
real(kind=sp), intent(out) :: sep(*)
integer(kind=ilp), intent(in) :: mm
integer(kind=ilp), intent(out) :: m
complex(kind=sp), intent(out) :: work(ldwork,*)
integer(kind=ilp), intent(in) :: ldwork
real(kind=sp), intent(out) :: rwork(*)
integer(kind=ilp), intent(out) :: info

public subroutine dtrsna(job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, iwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: job
character(len=1), intent(in) :: howmny
logical(kind=lk), intent(in) :: select(*)
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt
real(kind=dp), intent(in) :: vl(ldvl,*)
integer(kind=ilp), intent(in) :: ldvl
real(kind=dp), intent(in) :: vr(ldvr,*)
integer(kind=ilp), intent(in) :: ldvr
real(kind=dp), intent(out) :: s(*)
real(kind=dp), intent(out) :: sep(*)
integer(kind=ilp), intent(in) :: mm
integer(kind=ilp), intent(out) :: m
real(kind=dp), intent(out) :: work(ldwork,*)
integer(kind=ilp), intent(in) :: ldwork
integer(kind=ilp), intent(out) :: iwork(*)
integer(kind=ilp), intent(out) :: info

public subroutine strsna(job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, iwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: job
character(len=1), intent(in) :: howmny
logical(kind=lk), intent(in) :: select(*)
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(in) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt
real(kind=sp), intent(in) :: vl(ldvl,*)
integer(kind=ilp), intent(in) :: ldvl
real(kind=sp), intent(in) :: vr(ldvr,*)
integer(kind=ilp), intent(in) :: ldvr
real(kind=sp), intent(out) :: s(*)
real(kind=sp), intent(out) :: sep(*)
integer(kind=ilp), intent(in) :: mm
integer(kind=ilp), intent(out) :: m
real(kind=sp), intent(out) :: work(ldwork,*)
integer(kind=ilp), intent(in) :: ldwork
integer(kind=ilp), intent(out) :: iwork(*)
integer(kind=ilp), intent(out) :: info

public pure subroutine ztrsna(job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, rwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: job
character(len=1), intent(in) :: howmny
logical(kind=lk), intent(in) :: select(*)
integer(kind=ilp), intent(in) :: n
complex(kind=dp), intent(in) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt
complex(kind=dp), intent(in) :: vl(ldvl,*)
integer(kind=ilp), intent(in) :: ldvl
complex(kind=dp), intent(in) :: vr(ldvr,*)
integer(kind=ilp), intent(in) :: ldvr
real(kind=dp), intent(out) :: s(*)
real(kind=dp), intent(out) :: sep(*)
integer(kind=ilp), intent(in) :: mm
integer(kind=ilp), intent(out) :: m
complex(kind=dp), intent(out) :: work(ldwork,*)
integer(kind=ilp), intent(in) :: ldwork
real(kind=dp), intent(out) :: rwork(*)
integer(kind=ilp), intent(out) :: info

Module Procedures

public interface stdlib_ctrsna()

Arguments

None

public interface stdlib_dtrsna()

Arguments

None

public interface stdlib_strsna()

Arguments

None

public interface stdlib_ztrsna()

Arguments

None