![]() |
LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
|
subroutine cbdt02 | ( | integer | M, |
integer | N, | ||
complex, dimension( ldb, * ) | B, | ||
integer | LDB, | ||
complex, dimension( ldc, * ) | C, | ||
integer | LDC, | ||
complex, dimension( ldu, * ) | U, | ||
integer | LDU, | ||
complex, dimension( * ) | WORK, | ||
real, dimension( * ) | RWORK, | ||
real | RESID | ||
) |
CBDT02
CBDT02 tests the change of basis C = U' * B by computing the residual RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), where B and C are M by N matrices, U is an M by M orthogonal matrix, and EPS is the machine precision.
[in] | M | M is INTEGER The number of rows of the matrices B and C and the order of the matrix Q. |
[in] | N | N is INTEGER The number of columns of the matrices B and C. |
[in] | B | B is COMPLEX array, dimension (LDB,N) The m by n matrix B. |
[in] | LDB | LDB is INTEGER The leading dimension of the array B. LDB >= max(1,M). |
[in] | C | C is COMPLEX array, dimension (LDC,N) The m by n matrix C, assumed to contain U' * B. |
[in] | LDC | LDC is INTEGER The leading dimension of the array C. LDC >= max(1,M). |
[in] | U | U is COMPLEX array, dimension (LDU,M) The m by m orthogonal matrix U. |
[in] | LDU | LDU is INTEGER The leading dimension of the array U. LDU >= max(1,M). |
[out] | WORK | WORK is COMPLEX array, dimension (M) |
[out] | RWORK | RWORK is REAL array, dimension (M) |
[out] | RESID | RESID is REAL RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), |
Definition at line 121 of file cbdt02.f.