crzt01()

real function crzt01	(	integer	M,
		integer	N,
		complex, dimension( lda, * )	A,
		complex, dimension( lda, * )	AF,
		integer	LDA,
		complex, dimension( * )	TAU,
		complex, dimension( lwork )	WORK,
		integer	LWORK
	)

CRZT01

Purpose:

 CRZT01 returns
      || A - R*Q || / ( M * eps * ||A|| )
 for an upper trapezoidal A that was factored with CTZRZF.

Parameters

[in]	M	M is INTEGER The number of rows of the matrices A and AF.
[in]	N	N is INTEGER The number of columns of the matrices A and AF.
[in]	A	A is COMPLEX array, dimension (LDA,N) The original upper trapezoidal M by N matrix A.
[in]	AF	AF is COMPLEX array, dimension (LDA,N) The output of CTZRZF for input matrix A. The lower triangle is not referenced.
[in]	LDA	LDA is INTEGER The leading dimension of the arrays A and AF.
[in]	TAU	TAU is COMPLEX array, dimension (M) Details of the Householder transformations as returned by CTZRZF.
[out]	WORK	WORK is COMPLEX array, dimension (LWORK)
[in]	LWORK	LWORK is INTEGER The length of the array WORK. LWORK >= m*n + m.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.