TESTING/EIG/clsets.f(3) Library Functions Manual TESTING/EIG/clsets.f(3)

TESTING/EIG/clsets.f


subroutine clsets (m, p, n, a, af, lda, b, bf, ldb, c, cf, d, df, x, work, lwork, rwork, result)
CLSETS

CLSETS

Purpose:

 CLSETS tests CGGLSE - 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 COMPLEX array, dimension (LDA,N)
          The M-by-N matrix A.

AF

          AF is COMPLEX 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 COMPLEX array, dimension (LDB,N)
          The P-by-N matrix A.

BF

          BF is COMPLEX 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 COMPLEX array, dimension( M )
          the vector C in the LSE problem.

CF

          CF is COMPLEX array, dimension( M )

D

          D is COMPLEX array, dimension( P )
          the vector D in the LSE problem.

DF

          DF is COMPLEX array, dimension( P )

X

          X is COMPLEX array, dimension( N )
          solution vector X in the LSE problem.

WORK

          WORK is COMPLEX 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 clsets.f.

Generated automatically by Doxygen for LAPACK from the source code.

Version 3.12.0 LAPACK