ung2l#
Functions
-
void cung2l(const INT m, const INT n, const INT k, c64 *restrict A, const INT lda, const c64 *restrict tau, c64 *restrict work, INT *info)#
CUNG2L generates an m by n complex matrix Q with orthonormal columns, which is defined as the last n columns of a product of k elementary reflectors of order m.
Q = H(k-1) … H(1) H(0)
as returned by CGEQLF.
Parameters
inmThe number of rows of Q. m >= 0.
innThe number of columns of Q. m >= n >= 0.
inkThe number of elementary reflectors whose product defines Q. n >= k >= 0.
inoutAOn entry, the (n-k+i)-th column must contain the vector which defines the elementary reflector H(i), for i = 0,1,…,k-1, as returned by CGEQLF in the last k columns of its array argument A. On exit, the m-by-n matrix Q.
inldaThe leading dimension of A. lda >= max(1, m).
intauArray of dimension (k). TAU(i) must contain the scalar factor of the elementary reflector H(i), as returned by CGEQLF.
outworkWorkspace, dimension (n).
outinfo= 0: successful exit
< 0: if info = -i, the i-th argument had an illegal value.
void cung2l(
const INT m,
const INT n,
const INT k,
c64* restrict A,
const INT lda,
const c64* restrict tau,
c64* restrict work,
INT* info
);
Functions
-
void zung2l(const INT m, const INT n, const INT k, c128 *restrict A, const INT lda, const c128 *restrict tau, c128 *restrict work, INT *info)#
ZUNG2L generates an m by n complex matrix Q with orthonormal columns, which is defined as the last n columns of a product of k elementary reflectors of order m.
Q = H(k-1) … H(1) H(0)
as returned by ZGEQLF.
Parameters
inmThe number of rows of Q. m >= 0.
innThe number of columns of Q. m >= n >= 0.
inkThe number of elementary reflectors whose product defines Q. n >= k >= 0.
inoutAOn entry, the (n-k+i)-th column must contain the vector which defines the elementary reflector H(i), for i = 0,1,…,k-1, as returned by ZGEQLF in the last k columns of its array argument A. On exit, the m-by-n matrix Q.
inldaThe leading dimension of A. lda >= max(1, m).
intauArray of dimension (k). TAU(i) must contain the scalar factor of the elementary reflector H(i), as returned by ZGEQLF.
outworkWorkspace, dimension (n).
outinfo= 0: successful exit
< 0: if info = -i, the i-th argument had an illegal value.
void zung2l(
const INT m,
const INT n,
const INT k,
c128* restrict A,
const INT lda,
const c128* restrict tau,
c128* restrict work,
INT* info
);