.TH "TESTING/LIN/cqrt02.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*-
.ad l
.nh
.SH NAME
TESTING/LIN/cqrt02.f
.SH SYNOPSIS
.br
.PP
.SS "Functions/Subroutines"

.in +1c
.ti -1c
.RI "subroutine \fBcqrt02\fP (m, n, k, a, af, q, r, lda, tau, work, lwork, rwork, result)"
.br
.RI "\fBCQRT02\fP "
.in -1c
.SH "Function/Subroutine Documentation"
.PP 
.SS "subroutine cqrt02 (integer m, integer n, integer k, complex, dimension( lda, * ) a, complex, dimension( lda, * ) af, complex, dimension( lda, * ) q, complex, dimension( lda, * ) r, integer lda, complex, dimension( * ) tau, complex, dimension( lwork ) work, integer lwork, real, dimension( * ) rwork, real, dimension( * ) result)"

.PP
\fBCQRT02\fP 
.PP
\fBPurpose:\fP
.RS 4

.PP
.nf
 CQRT02 tests CUNGQR, which generates an m-by-n matrix Q with
 orthonormal columns that is defined as the product of k elementary
 reflectors\&.

 Given the QR factorization of an m-by-n matrix A, CQRT02 generates
 the orthogonal matrix Q defined by the factorization of the first k
 columns of A; it compares R(1:n,1:k) with Q(1:m,1:n)'*A(1:m,1:k),
 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 array, dimension (LDA,N)
          The m-by-n matrix A which was factorized by CQRT01\&.
.fi
.PP
.br
\fIAF\fP 
.PP
.nf
          AF is COMPLEX array, dimension (LDA,N)
          Details of the QR factorization of A, as returned by CGEQRF\&.
          See CGEQRF for further details\&.
.fi
.PP
.br
\fIQ\fP 
.PP
.nf
          Q is COMPLEX array, dimension (LDA,N)
.fi
.PP
.br
\fIR\fP 
.PP
.nf
          R is COMPLEX array, dimension (LDA,N)
.fi
.PP
.br
\fILDA\fP 
.PP
.nf
          LDA is INTEGER
          The leading dimension of the arrays A, AF, Q and R\&. LDA >= M\&.
.fi
.PP
.br
\fITAU\fP 
.PP
.nf
          TAU is COMPLEX array, dimension (N)
          The scalar factors of the elementary reflectors corresponding
          to the QR factorization in AF\&.
.fi
.PP
.br
\fIWORK\fP 
.PP
.nf
          WORK is COMPLEX 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 REAL array, dimension (M)
.fi
.PP
.br
\fIRESULT\fP 
.PP
.nf
          RESULT is REAL array, dimension (2)
          The test ratios:
          RESULT(1) = norm( R - 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 \fB133\fP of file \fBcqrt02\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.