DORHR_COL02(3)

okay bestie, welcome to the TESTING/LI...rhr_col02.f(3) page from the Library Functions Manual — it's giving Fortran test-routine main character energy 💅✨

🌸 NAME 🌸

The whole name is literally TESTING/LIN/dorhr_col02.f — that's the file, no cap 💖

---

✨ SYNOPSIS ✨

🧚 Functions/Subroutines 🧚

subroutine dorhr_col02 (m, n, mb1, nb1, nb2, result)
    DORHR_COL02

---

🦋 Function/Subroutine Documentation 🦋

subroutine dorhr_col02 (integer m, integer n, integer mb1, integer nb1,
    integer nb2, double precision, dimension(6) result)

DORHR_COL02

🎀 Purpose 🎀

Bestie, DORHR_COL02 tests DORGTSQR_ROW and DORHR_COL inside DGETSQRHRT (which calls DLATSQR, DORGTSQR_ROW, and DORHR_COL) using DGEMQRT. So yeah: DLATSQR (part of DGEQR) and DGEMQRT (part of DGEMQR) have to be tested before this test — no skipping, periodt 🔥

💖 Parameters 💖

• M — M is INTEGER, and it's the number of rows in the test matrix 📏
• N — N is INTEGER, the number of columns in the test matrix 📐
• MB1 — MB1 is INTEGER, the number of row in row block in an input test matrix (yes bestie, "row", that's what it says 😭)
• NB1 — NB1 is INTEGER, the number of columns in column block an input test matrix
• NB2 — NB2 is INTEGER, the number of columns in column block in an output test matrix
• RESULT — RESULT is DOUBLE PRECISION array, dimension (6). It holds the results of each of the six tests below. Here's the whole setup, gorgeous:
  • 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 orthogonal 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 orthogonal 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, and D * (Q_qr**H) are computed using DGEMQRT,
• Q * C, (Q**H) * C, D * Q, and D * (Q**H) are computed using DGEMM.

👑 Author 👑

• Univ. of Tennessee
• Univ. of California Berkeley
• Univ. of Colorado Denver
• NAG Ltd.

📌 Definition 📌

Definition at line 119 of file dorhr_col02.f.

---

💜 Author 💜

Generated automatically by Doxygen for LAPACK from the source code.

---

okay byeee 👋 this page is from LAPACK Version 3.12.0 and it's tagged TESTING/LI...rhr_col02.f(3) — mwah 💋✨