f77_ormqr Interface

public interface f77_ormqr

Generic old style interface for ORMQR. Supports s, d. See also: mfi_ormqr, sormqr, dormqr.


Subroutines

public pure subroutine sormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for SORMQR See also: mfi_ormqr, f77_ormqr. This routine overwrites the general complex matrix with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

as returned by sgeqrf. is of order if SIDE = 'L' and of order if SIDE = 'R'.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: trans
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: k
real(kind=REAL32), intent(inout) :: a(lda,*)
integer, intent(in) :: lda
real(kind=REAL32), intent(in) :: tau(*)
real(kind=REAL32), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc
real(kind=REAL32), intent(out) :: work(*)
integer, intent(in) :: lwork
integer, intent(out) :: info

public pure subroutine dormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for DORMQR See also: mfi_ormqr, f77_ormqr. This routine overwrites the general complex matrix with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

as returned by dgeqrf. is of order if SIDE = 'L' and of order if SIDE = 'R'.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: trans
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: k
real(kind=REAL64), intent(inout) :: a(lda,*)
integer, intent(in) :: lda
real(kind=REAL64), intent(in) :: tau(*)
real(kind=REAL64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc
real(kind=REAL64), intent(out) :: work(*)
integer, intent(in) :: lwork
integer, intent(out) :: info