larft Interface

public interface larft

LARFT forms the triangular factor T of a complex block reflector H of order n, which is defined as a product of k elementary reflectors. If DIRECT = 'F', H = H(1) H(2) . . . H(k) and T is upper triangular; If DIRECT = 'B', H = H(k) . . . H(2) H(1) and T is lower triangular. If STOREV = 'C', the vector which defines the elementary reflector H(i) is stored in the i-th column of the array V, and H = I - V * T * VH If STOREV = 'R', the vector which defines the elementary reflector H(i) is stored in the i-th row of the array V, and H = I - VH * T * V


Subroutines

public pure subroutine clarft(direct, storev, n, k, v, ldv, tau, t, ldt)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: direct
character(len=1), intent(in) :: storev
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
complex(kind=sp), intent(in) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
complex(kind=sp), intent(in) :: tau(*)
complex(kind=sp), intent(out) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt

public pure subroutine dlarft(direct, storev, n, k, v, ldv, tau, t, ldt)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: direct
character(len=1), intent(in) :: storev
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
real(kind=dp), intent(in) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
real(kind=dp), intent(in) :: tau(*)
real(kind=dp), intent(out) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt

public pure subroutine slarft(direct, storev, n, k, v, ldv, tau, t, ldt)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: direct
character(len=1), intent(in) :: storev
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
real(kind=sp), intent(in) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
real(kind=sp), intent(in) :: tau(*)
real(kind=sp), intent(out) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt

public pure subroutine zlarft(direct, storev, n, k, v, ldv, tau, t, ldt)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: direct
character(len=1), intent(in) :: storev
integer(kind=ilp), intent(in) :: n
integer(kind=ilp), intent(in) :: k
complex(kind=dp), intent(in) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
complex(kind=dp), intent(in) :: tau(*)
complex(kind=dp), intent(out) :: t(ldt,*)
integer(kind=ilp), intent(in) :: ldt

Module Procedures

public interface stdlib_clarft()

Arguments

None

public interface stdlib_dlarft()

Arguments

None

public interface stdlib_slarft()

Arguments

None

public interface stdlib_zlarft()

Arguments

None