f77_orgrq Interface

public interface f77_orgrq

Generic old style interface for ORGRQ. Supports s, d. See also: mfi_orgrq, sorgrq, dorgrq.


Subroutines

public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info)

Original interface for SORGRQ See also: mfi_orgrq, f77_orgrq. This routine generates an real(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by sgerqf.

Arguments

Type IntentOptional Attributes Name
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(out) :: work(*)
integer, intent(in) :: lwork
integer, intent(out) :: info

public pure subroutine dorgrq(m, n, k, a, lda, tau, work, lwork, info)

Original interface for DORGRQ See also: mfi_orgrq, f77_orgrq. This routine generates an real(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by dgerqf.

Arguments

Type IntentOptional Attributes Name
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(out) :: work(*)
integer, intent(in) :: lwork
integer, intent(out) :: info