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.