.TH "TESTING/LIN/sqpt01.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/LIN/sqpt01.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "real function \fBsqpt01\fP (m, n, k, a, af, lda, tau, jpvt, work, lwork)" .br .RI "\fBSQPT01\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "real function sqpt01 (integer m, integer n, integer k, real, dimension( lda, * ) a, real, dimension( lda, * ) af, integer lda, real, dimension( * ) tau, integer, dimension( * ) jpvt, real, dimension( lwork ) work, integer lwork)" .PP \fBSQPT01\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> SQPT01 tests the QR-factorization with pivoting of a matrix A\&. The !> array AF contains the (possibly partial) QR-factorization of A, where !> the upper triangle of AF(1:k,1:k) is a partial triangular factor, !> the entries below the diagonal in the first k columns are the !> Householder vectors, and the rest of AF contains a partially updated !> matrix\&. !> !> This function returns ||A*P - Q*R|| / ( ||norm(A)||*eps*max(M,N) ) !> where || \&. || is matrix one norm\&. !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIM\fP .PP .nf !> M is INTEGER !> The number of rows of the matrices A and AF\&. !> .fi .PP .br \fIN\fP .PP .nf !> N is INTEGER !> The number of columns of the matrices A and AF\&. !> .fi .PP .br \fIK\fP .PP .nf !> K is INTEGER !> The number of columns of AF that have been reduced !> to upper triangular form\&. !> .fi .PP .br \fIA\fP .PP .nf !> A is REAL array, dimension (LDA, N) !> The original matrix A\&. !> .fi .PP .br \fIAF\fP .PP .nf !> AF is REAL array, dimension (LDA,N) !> The (possibly partial) output of SGEQPF\&. The upper triangle !> of AF(1:k,1:k) is a partial triangular factor, the entries !> below the diagonal in the first k columns are the Householder !> vectors, and the rest of AF contains a partially updated !> matrix\&. !> .fi .PP .br \fILDA\fP .PP .nf !> LDA is INTEGER !> The leading dimension of the arrays A and AF\&. !> .fi .PP .br \fITAU\fP .PP .nf !> TAU is REAL array, dimension (K) !> Details of the Householder transformations as returned by !> SGEQPF\&. !> .fi .PP .br \fIJPVT\fP .PP .nf !> JPVT is INTEGER array, dimension (N) !> Pivot information as returned by SGEQPF\&. !> .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 the array WORK\&. LWORK >= M*N+N\&. !> .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 \fB119\fP of file \fBsqpt01\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.