LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ zlqt01()

subroutine zlqt01 ( integer  m,
integer  n,
complex*16, dimension( lda, * )  a,
complex*16, dimension( lda, * )  af,
complex*16, dimension( lda, * )  q,
complex*16, dimension( lda, * )  l,
integer  lda,
complex*16, dimension( * )  tau,
complex*16, dimension( lwork )  work,
integer  lwork,
double precision, dimension( * )  rwork,
double precision, dimension( * )  result 
)

ZLQT01

Purpose:
 ZLQT01 tests ZGELQF, which computes the LQ factorization of an m-by-n
 matrix A, and partially tests ZUNGLQ which forms the n-by-n
 orthogonal matrix Q.

 ZLQT01 compares L with A*Q', and checks that Q is orthogonal.
Parameters
[in]M
          M is INTEGER
          The number of rows of the matrix A.  M >= 0.
[in]N
          N is INTEGER
          The number of columns of the matrix A.  N >= 0.
[in]A
          A is COMPLEX*16 array, dimension (LDA,N)
          The m-by-n matrix A.
[out]AF
          AF is COMPLEX*16 array, dimension (LDA,N)
          Details of the LQ factorization of A, as returned by ZGELQF.
          See ZGELQF for further details.
[out]Q
          Q is COMPLEX*16 array, dimension (LDA,N)
          The n-by-n orthogonal matrix Q.
[out]L
          L is COMPLEX*16 array, dimension (LDA,max(M,N))
[in]LDA
          LDA is INTEGER
          The leading dimension of the arrays A, AF, Q and L.
          LDA >= max(M,N).
[out]TAU
          TAU is COMPLEX*16 array, dimension (min(M,N))
          The scalar factors of the elementary reflectors, as returned
          by ZGELQF.
[out]WORK
          WORK is COMPLEX*16 array, dimension (LWORK)
[in]LWORK
          LWORK is INTEGER
          The dimension of the array WORK.
[out]RWORK
          RWORK is DOUBLE PRECISION array, dimension (max(M,N))
[out]RESULT
          RESULT is DOUBLE PRECISION array, dimension (2)
          The test ratios:
          RESULT(1) = norm( L - A*Q' ) / ( N * norm(A) * EPS )
          RESULT(2) = norm( I - Q*Q' ) / ( N * EPS )
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.