TESTING/EIG/cbdt02.f(3) Library Functions Manual TESTING/EIG/cbdt02.f(3) NAME TESTING/EIG/cbdt02.f SYNOPSIS Functions/Subroutines subroutine cbdt02 (m, n, b, ldb, c, ldc, u, ldu, work, rwork, resid) CBDT02 Function/Subroutine Documentation 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 Purpose: !> !> CBDT02 tests the change of basis C = U**H * 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. !> Parameters M !> M is INTEGER !> The number of rows of the matrices B and C and the order of !> the matrix Q. !> N !> N is INTEGER !> The number of columns of the matrices B and C. !> B !> B is COMPLEX array, dimension (LDB,N) !> The m by n matrix B. !> LDB !> LDB is INTEGER !> The leading dimension of the array B. LDB >= max(1,M). !> C !> C is COMPLEX array, dimension (LDC,N) !> The m by n matrix C, assumed to contain U**H * B. !> LDC !> LDC is INTEGER !> The leading dimension of the array C. LDC >= max(1,M). !> U !> U is COMPLEX array, dimension (LDU,M) !> The m by m orthogonal matrix U. !> LDU !> LDU is INTEGER !> The leading dimension of the array U. LDU >= max(1,M). !> WORK !> WORK is COMPLEX array, dimension (M) !> RWORK !> RWORK is REAL array, dimension (M) !> RESID !> RESID is REAL !> RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ), !> Author Univ. of Tennessee Univ. of California Berkeley Univ. of Colorado Denver NAG Ltd. Definition at line 118 of file cbdt02.f. Author Generated automatically by Doxygen for LAPACK from the source code. LAPACK Version 3.12.0 TESTING/EIG/cbdt02.f(3)