.TH "TESTING/LIN/zqlt02.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/LIN/zqlt02.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBzqlt02\fP (m, n, k, a, af, q, l, lda, tau, work, lwork, rwork, result)" .br .RI "\fBZQLT02\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine zqlt02 (integer m, integer n, integer k, 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)" .PP \fBZQLT02\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> ZQLT02 tests ZUNGQL, which generates an m-by-n matrix Q with !> orthonormal columns that is defined as the product of k elementary !> reflectors\&. !> !> Given the QL factorization of an m-by-n matrix A, ZQLT02 generates !> the orthogonal matrix Q defined by the factorization of the last k !> columns of A; it compares L(m-n+1:m,n-k+1:n) with !> Q(1:m,m-n+1:m)'*A(1:m,n-k+1:n), and checks that the columns of Q are !> orthonormal\&. !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIM\fP .PP .nf !> M is INTEGER !> The number of rows of the matrix Q to be generated\&. M >= 0\&. !> .fi .PP .br \fIN\fP .PP .nf !> N is INTEGER !> The number of columns of the matrix Q to be generated\&. !> M >= N >= 0\&. !> .fi .PP .br \fIK\fP .PP .nf !> K is INTEGER !> The number of elementary reflectors whose product defines the !> matrix Q\&. N >= K >= 0\&. !> .fi .PP .br \fIA\fP .PP .nf !> A is COMPLEX*16 array, dimension (LDA,N) !> The m-by-n matrix A which was factorized by ZQLT01\&. !> .fi .PP .br \fIAF\fP .PP .nf !> AF is COMPLEX*16 array, dimension (LDA,N) !> Details of the QL factorization of A, as returned by ZGEQLF\&. !> See ZGEQLF for further details\&. !> .fi .PP .br \fIQ\fP .PP .nf !> Q is COMPLEX*16 array, dimension (LDA,N) !> .fi .PP .br \fIL\fP .PP .nf !> L is COMPLEX*16 array, dimension (LDA,N) !> .fi .PP .br \fILDA\fP .PP .nf !> LDA is INTEGER !> The leading dimension of the arrays A, AF, Q and L\&. LDA >= M\&. !> .fi .PP .br \fITAU\fP .PP .nf !> TAU is COMPLEX*16 array, dimension (N) !> The scalar factors of the elementary reflectors corresponding !> to the QL factorization in AF\&. !> .fi .PP .br \fIWORK\fP .PP .nf !> WORK is COMPLEX*16 array, dimension (LWORK) !> .fi .PP .br \fILWORK\fP .PP .nf !> LWORK is INTEGER !> The dimension of the array WORK\&. !> .fi .PP .br \fIRWORK\fP .PP .nf !> RWORK is DOUBLE PRECISION array, dimension (M) !> .fi .PP .br \fIRESULT\fP .PP .nf !> RESULT is DOUBLE PRECISION array, dimension (2) !> The test ratios: !> RESULT(1) = norm( L - Q'*A ) / ( M * norm(A) * EPS ) !> RESULT(2) = norm( I - Q'*Q ) / ( M * EPS ) !> .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .PP Definition at line \fB134\fP of file \fBzqlt02\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.