# cunhr_col02.f - Man Page

TESTING/LIN/cunhr_col02.f

## Synopsis

### Functions/Subroutines

subroutine **cunhr_col02** (m, n, mb1, nb1, nb2, result)**CUNHR_COL02**

## Function/Subroutine Documentation

### subroutine cunhr_col02 (integer m, integer n, integer mb1, integer nb1, integer nb2, real, dimension(6) result)

**CUNHR_COL02**

**Purpose:**

CUNHR_COL02 tests CUNGTSQR_ROW and CUNHR_COL inside CGETSQRHRT (which calls CLATSQR, CUNGTSQR_ROW and CUNHR_COL) using CGEMQRT. Therefore, CLATSQR (part of CGEQR), CGEMQRT (part of CGEMQR) have to be tested before this test.

**Parameters***M*M is INTEGER Number of rows in test matrix.

*N*N is INTEGER Number of columns in test matrix.

*MB1*MB1 is INTEGER Number of row in row block in an input test matrix.

*NB1*NB1 is INTEGER Number of columns in column block an input test matrix.

*NB2*NB2 is INTEGER Number of columns in column block in an output test matrix.

*RESULT*RESULT is REAL 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 CGEQRT 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 CGEMQRT, Q * C, (Q**H) * C, D * Q, D * (Q**H) are computed using CGEMM.

**Author**Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line **119** of file **cunhr_col02.f**.

## Author

Generated automatically by Doxygen for LAPACK from the source code.

## Referenced By

The man page cunhr_col02(3) is an alias of cunhr_col02.f(3).

Tue Nov 28 2023 12:08:42 Version 3.12.0 LAPACK