larzt Interface

public interface larzt

LARZT 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 Currently, only STOREV = 'R' and DIRECT = 'B' are supported.


Subroutines

public pure subroutine clarzt(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(inout) :: 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 dlarzt(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(inout) :: 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 slarzt(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(inout) :: 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 zlarzt(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(inout) :: 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_clarzt()

Arguments

None

public interface stdlib_dlarzt()

Arguments

None

public interface stdlib_slarzt()

Arguments

None

public interface stdlib_zlarzt()

Arguments

None