.TH "TESTING/LIN/srqt03.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/LIN/srqt03.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBsrqt03\fP (m, n, k, af, c, cc, q, lda, tau, work, lwork, rwork, result)" .br .RI "\fBSRQT03\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine srqt03 (integer m, integer n, integer k, real, dimension( lda, * ) af, real, dimension( lda, * ) c, real, dimension( lda, * ) cc, real, dimension( lda, * ) q, integer lda, real, dimension( * ) tau, real, dimension( lwork ) work, integer lwork, real, dimension( * ) rwork, real, dimension( * ) result)" .PP \fBSRQT03\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> SRQT03 tests SORMRQ, which computes Q*C, Q'*C, C*Q or C*Q'\&. !> !> SRQT03 compares the results of a call to SORMRQ with the results of !> forming Q explicitly by a call to SORGRQ and then performing matrix !> multiplication by a call to SGEMM\&. !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIM\fP .PP .nf !> M is INTEGER !> The number of rows or columns of the matrix C; C is n-by-m if !> Q is applied from the left, or m-by-n if Q is applied from !> the right\&. M >= 0\&. !> .fi .PP .br \fIN\fP .PP .nf !> N is INTEGER !> The order of the orthogonal matrix Q\&. N >= 0\&. !> .fi .PP .br \fIK\fP .PP .nf !> K is INTEGER !> The number of elementary reflectors whose product defines the !> orthogonal matrix Q\&. N >= K >= 0\&. !> .fi .PP .br \fIAF\fP .PP .nf !> AF is REAL array, dimension (LDA,N) !> Details of the RQ factorization of an m-by-n matrix, as !> returned by SGERQF\&. See SGERQF for further details\&. !> .fi .PP .br \fIC\fP .PP .nf !> C is REAL array, dimension (LDA,N) !> .fi .PP .br \fICC\fP .PP .nf !> CC is REAL array, dimension (LDA,N) !> .fi .PP .br \fIQ\fP .PP .nf !> Q is REAL array, dimension (LDA,N) !> .fi .PP .br \fILDA\fP .PP .nf !> LDA is INTEGER !> The leading dimension of the arrays AF, C, CC, and Q\&. !> .fi .PP .br \fITAU\fP .PP .nf !> TAU is REAL array, dimension (min(M,N)) !> The scalar factors of the elementary reflectors corresponding !> to the RQ factorization in AF\&. !> .fi .PP .br \fIWORK\fP .PP .nf !> WORK is REAL array, dimension (LWORK) !> .fi .PP .br \fILWORK\fP .PP .nf !> LWORK is INTEGER !> The length of WORK\&. LWORK must be at least M, and should be !> M*NB, where NB is the blocksize for this environment\&. !> .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 (4) !> The test ratios compare two techniques for multiplying a !> random matrix C by an n-by-n orthogonal matrix Q\&. !> RESULT(1) = norm( Q*C - Q*C ) / ( N * norm(C) * EPS ) !> RESULT(2) = norm( C*Q - C*Q ) / ( N * norm(C) * EPS ) !> RESULT(3) = norm( Q'*C - Q'*C )/ ( N * norm(C) * EPS ) !> RESULT(4) = norm( C*Q' - C*Q' )/ ( N * norm(C) * 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 \fBsrqt03\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.