cget10()

subroutine cget10	(	integer	M,
		integer	N,
		complex, dimension( lda, * )	A,
		integer	LDA,
		complex, dimension( ldb, * )	B,
		integer	LDB,
		complex, dimension( * )	WORK,
		real, dimension( * )	RWORK,
		real	RESULT
	)

CGET10

Purpose:

 CGET10 compares two matrices A and B and computes the ratio
 RESULT = norm( A - B ) / ( norm(A) * M * EPS )

Parameters

[in]	M	M is INTEGER The number of rows of the matrices A and B.
[in]	N	N is INTEGER The number of columns of the matrices A and B.
[in]	A	A is COMPLEX array, dimension (LDA,N) The m by n matrix A.
[in]	LDA	LDA is INTEGER The leading dimension of the array A. LDA >= max(1,M).
[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).
[out]	WORK	WORK is COMPLEX array, dimension (M)
[out]	RWORK	RWORK is COMPLEX array, dimension (M)
[out]	RESULT	RESULT is REAL RESULT = norm( A - B ) / ( norm(A) * M * EPS )

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.