![]() |
LAPACK
3.9.0
LAPACK: Linear Algebra PACKage
|
subroutine dorhr_col01 | ( | integer | M, |
integer | N, | ||
integer | MB1, | ||
integer | NB1, | ||
integer | NB2, | ||
double precision, dimension(6) | RESULT | ||
) |
DORHR_COL01
DORHR_COL01 tests DORHR_COL using DLATSQR, DGEMQRT and DORGTSQR. Therefore, DLATSQR (part of DGEQR), DGEMQRT (part DGEMQR), DORGTSQR have to be tested before this test.
[in] | M | M is INTEGER Number of rows in test matrix. |
[in] | N | N is INTEGER Number of columns in test matrix. |
[in] | MB1 | MB1 is INTEGER Number of row in row block in an input test matrix. |
[in] | NB1 | NB1 is INTEGER Number of columns in column block an input test matrix. |
[in] | NB2 | NB2 is INTEGER Number of columns in column block in an output test matrix. |
[out] | RESULT | RESULT is DOUBLE PRECISION array, dimension (6) Results of each of the six tests below. ( C is a M-by-N random matrix, D is a N-by-M random matrix ) RESULT(1) = | A - Q * R | / (eps * m * |A|) RESULT(2) = | I - (Q**H) * Q | / (eps * m ) RESULT(3) = | Q * C - Q * C | / (eps * m * |C|) RESULT(4) = | (Q**H) * C - (Q**H) * C | / (eps * m * |C|) RESULT(5) = | (D * Q) - D * Q | / (eps * m * |D|) RESULT(6) = | D * (Q**H) - D * (Q**H) | / (eps * m * |D|) |