TESTING/EIG/slsets.f(3) Library Functions Manual TESTING/EIG/slsets.f(3) NAME TESTING/EIG/slsets.f SYNOPSIS Functions/Subroutines subroutine slsets (m, p, n, a, af, lda, b, bf, ldb, c, cf, d, df, x, work, lwork, rwork, result) SLSETS Function/Subroutine Documentation subroutine slsets (integer m, integer p, integer n, real, dimension( lda, * ) a, real, dimension( lda, * ) af, integer lda, real, dimension( ldb, * ) b, real, dimension( ldb, * ) bf, integer ldb, real, dimension( * ) c, real, dimension( * ) cf, real, dimension( * ) d, real, dimension( * ) df, real, dimension( * ) x, real, dimension( lwork ) work, integer lwork, real, dimension( * ) rwork, real, dimension( 2 ) result) SLSETS Purpose: !> !> SLSETS tests SGGLSE - a subroutine for solving linear equality !> constrained least square problem (LSE). !> Parameters M !> M is INTEGER !> The number of rows of the matrix A. M >= 0. !> P !> P is INTEGER !> The number of rows of the matrix B. P >= 0. !> N !> N is INTEGER !> The number of columns of the matrices A and B. N >= 0. !> A !> A is REAL array, dimension (LDA,N) !> The M-by-N matrix A. !> AF !> AF is REAL array, dimension (LDA,N) !> LDA !> LDA is INTEGER !> The leading dimension of the arrays A, AF, Q and R. !> LDA >= max(M,N). !> B !> B is REAL array, dimension (LDB,N) !> The P-by-N matrix A. !> BF !> BF is REAL array, dimension (LDB,N) !> LDB !> LDB is INTEGER !> The leading dimension of the arrays B, BF, V and S. !> LDB >= max(P,N). !> C !> C is REAL array, dimension( M ) !> the vector C in the LSE problem. !> CF !> CF is REAL array, dimension( M ) !> D !> D is REAL array, dimension( P ) !> the vector D in the LSE problem. !> DF !> DF is REAL array, dimension( P ) !> X !> X is REAL array, dimension( N ) !> solution vector X in the LSE problem. !> WORK !> WORK is REAL array, dimension (LWORK) !> LWORK !> LWORK is INTEGER !> The dimension of the array WORK. !> RWORK !> RWORK is REAL array, dimension (M) !> RESULT !> RESULT is REAL array, dimension (2) !> The test ratios: !> RESULT(1) = norm( A*x - c )/ norm(A)*norm(X)*EPS !> RESULT(2) = norm( B*x - d )/ norm(B)*norm(X)*EPS !> Author Univ. of Tennessee Univ. of California Berkeley Univ. of Colorado Denver NAG Ltd. Definition at line 153 of file slsets.f. Author Generated automatically by Doxygen for LAPACK from the source code. LAPACK Version 3.12.0 TESTING/EIG/slsets.f(3)