![]() |
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|) |