crzt02()

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

CRZT02

Purpose:

 CRZT02 returns
      || I - Q'*Q || / ( M * eps)
 where the matrix Q is defined by the Householder transformations
 generated by CTZRZF.

Parameters

[in]	M	M is INTEGER The number of rows of the matrix AF.
[in]	N	N is INTEGER The number of columns of the matrix AF.
[in]	AF	AF is COMPLEX array, dimension (LDA,N) The output of CTZRZF.
[in]	LDA	LDA is INTEGER The leading dimension of the array 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 Length of WORK array. LWORK >= N*N+N.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.