.TH "TESTING/LIN/zunhr_col02.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*-
.ad l
.nh
.SH NAME
TESTING/LIN/zunhr_col02.f
.SH SYNOPSIS
.br
.PP
.SS "Functions/Subroutines"

.in +1c
.ti -1c
.RI "subroutine \fBzunhr_col02\fP (m, n, mb1, nb1, nb2, result)"
.br
.RI "\fBZUNHR_COL02\fP "
.in -1c
.SH "Function/Subroutine Documentation"
.PP 
.SS "subroutine zunhr_col02 (integer m, integer n, integer mb1, integer nb1, integer nb2, double precision, dimension(6) result)"

.PP
\fBZUNHR_COL02\fP 
.PP
\fBPurpose:\fP
.RS 4

.PP
.nf
 ZUNHR_COL02 tests ZUNGTSQR_ROW and ZUNHR_COL inside ZGETSQRHRT
 (which calls ZLATSQR, ZUNGTSQR_ROW and ZUNHR_COL) using ZGEMQRT\&.
 Therefore, ZLATSQR (part of ZGEQR), ZGEMQRT (part of ZGEMQR)
 have to be tested before this test\&.
.fi
.PP
 
.RE
.PP
\fBParameters\fP
.RS 4
\fIM\fP 
.PP
.nf
          M is INTEGER
          Number of rows in test matrix\&.
.fi
.PP
 
.br
\fIN\fP 
.PP
.nf
          N is INTEGER
          Number of columns in test matrix\&.
.fi
.PP
 
.br
\fIMB1\fP 
.PP
.nf
          MB1 is INTEGER
          Number of row in row block in an input test matrix\&.
.fi
.PP
.br
\fINB1\fP 
.PP
.nf
          NB1 is INTEGER
          Number of columns in column block an input test matrix\&.
.fi
.PP
.br
\fINB2\fP 
.PP
.nf
          NB2 is INTEGER
          Number of columns in column block in an output test matrix\&.
.fi
.PP
.br
\fIRESULT\fP 
.PP
.nf
          RESULT is DOUBLE PRECISION array, dimension (6)
          Results of each of the six tests below\&.

            A is a m-by-n test input matrix to be factored\&.
            so that A = Q_gr * ( R )
                               ( 0 ),

            Q_qr is an implicit m-by-m unitary Q matrix, the result
            of factorization in blocked WY-representation,
            stored in ZGEQRT output format\&.

            R is a n-by-n upper-triangular matrix,

            0 is a (m-n)-by-n zero matrix,

            Q is an explicit m-by-m unitary matrix Q = Q_gr * I

            C is an m-by-n random matrix,

            D is an n-by-m random matrix\&.

          The six tests are:

          RESULT(1) = |R - (Q**H) * A| / ( eps * m * |A| )
            is equivalent to test for | A - Q * R | / (eps * m * |A|),

          RESULT(2) = |I - (Q**H) * Q| / ( eps * m ),

          RESULT(3) = | Q_qr * C - Q * C | / (eps * m * |C|),

          RESULT(4) = | (Q_gr**H) * C - (Q**H) * C | / (eps * m * |C|)

          RESULT(5) = | D * Q_qr - D * Q | / (eps * m * |D|)

          RESULT(6) = | D * (Q_qr**H) - D * (Q**H) | / (eps * m * |D|),

          where:
            Q_qr * C, (Q_gr**H) * C, D * Q_qr, D * (Q_qr**H) are
            computed using ZGEMQRT,

            Q * C, (Q**H) * C, D * Q, D * (Q**H)  are
            computed using ZGEMM\&.
.fi
.PP
 
.RE
.PP
\fBAuthor\fP
.RS 4
Univ\&. of Tennessee 
.PP
Univ\&. of California Berkeley 
.PP
Univ\&. of Colorado Denver 
.PP
NAG Ltd\&. 
.RE
.PP

.PP
Definition at line \fB119\fP of file \fBzunhr_col02\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.