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

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 REAL array, dimension (LDA,N)
!>          The output of STZRZF.
!> 

LDA

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

TAU

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

WORK

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

LWORK

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

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.