srzt02()

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

SRZT02

Purpose:

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

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 REAL array, dimension (LDA,N) The output of STZRZF.
[in]	LDA	LDA is INTEGER The leading dimension of the array AF.
[in]	TAU	TAU is REAL array, dimension (M) Details of the Householder transformations as returned by STZRZF.
[out]	WORK	WORK is REAL array, dimension (LWORK)
[in]	LWORK	LWORK is INTEGER length of WORK array. LWORK >= N*N+N*NB.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.