SORHR_COL01.F(3)

✨ NAME ✨

TESTING/LIN/sorhr_col01.f — that's the whole name, and this page is its whole personality 💅. It lives in the Library Functions Manual (header shorthand: TESTING/LI...rhr_col01.f(3)), and it's giving very specific LAPACK test-page energy 🧚✨.

---

🌸 SYNOPSIS 🌸

🎀 Functions/Subroutines

subroutine sorhr_col01 (m, n, mb1, nb1, nb2, result)
    SORHR_COL01

---

💅 FUNCTION/SUBROUTINE DOCUMENTATION 💅

Here's the actual subroutine documentation, bestie — signature first, chaos later 🫶:

subroutine sorhr_col01 (integer m, integer n, integer mb1, integer nb1,
    integer nb2, real, dimension(6) result)
    SORHR_COL01

🎯 Purpose

SORHR_COL01 tests SORGTSQR and SORHR_COL using SLATSQR, SGEMQRT.

⚠️ Prereq check, no cap: SLATSQR (part of SGEQR) and SGEMQRT (part of SGEMQR) have to be tested before this test. Don't skip the prerequisites, bestie 😭🔥

🍓 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 orthogonal Q matrix, the result of factorization in blocked WY-representation, stored in SGEQRT 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, D * (Q_qr**H) are
  computed using SGEMQRT,

  Q * C, (Q**H) * C, D * Q, D * (Q**H)  are
  computed using SGEMM.

👑 Author

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

Definition at line 118 of file sorhr_col01.f.

👑 Author

Generated automatically by Doxygen for LAPACK from the source code.

---

Ok that's the whole page, bestie. Cute little footer sign-off, as promised: LAPACK, Version 3.12.0, and TESTING/LI...rhr_col01.f(3) 🎀 The footer doesn't list a date, so we're not inventing one — no fake tea on my watch 💅✨