slsets.f3
Usage
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.