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

M

!>          M is INTEGER
!>          The number of rows of the matrix AF.
!> 

N

!>          N is INTEGER
!>          The number of columns of the matrix AF.
!> 

AF

!>          AF is COMPLEX array, dimension (LDA,N)
!>          The output of CTZRZF.
!> 

LDA

!>          LDA is INTEGER
!>          The leading dimension of the array AF.
!> 

TAU

!>          TAU is COMPLEX array, dimension (M)
!>          Details of the Householder transformations as returned by
!>          CTZRZF.
!> 

WORK

!>          WORK is COMPLEX array, dimension (LWORK)
!> 

LWORK

!>          LWORK is INTEGER
!>          Length of WORK array. LWORK >= N*N+N.
!> 

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.