TESTING/LIN/crqt01.f(3)

🦋 crqt01 🦋

okay so this is the TESTING/LIN/crqt01.f(3) manual page, and it's lowkey all about the crqt01 test subroutine. bestie, it's giving "paperwork for a Fortran test" but make it fashion 💅

---

🌸 NAME 🌸

TESTING/LIN/crqt01.f — that's the whole name section, no extra tea, periodt ✨

---

✨ SYNOPSIS ✨

🧚 Functions/Subroutines 🧚

subroutine crqt01 (m, n, a, af, q, r, lda, tau, work, lwork, rwork,
    result)
    CRQT01

---

💖 Function/Subroutine Documentation 💖

subroutine crqt01 (integer m, integer n, complex, dimension( lda, * ) a,
    complex, dimension( lda, * ) af, complex, dimension( lda, * ) q,
    complex, dimension( lda, * ) r, integer lda, complex, dimension( * )
    tau, complex, dimension( lwork ) work, integer lwork, real, dimension( *
    ) rwork, real, dimension( * ) result)
    CRQT01

🎯 Purpose 🎯

CRQT01 tests CGERQF, which computes the RQ factorization of an m-by-n matrix A, and partially tests CUNGRQ which forms the n-by-n orthogonal matrix Q.

CRQT01 compares R with A*Q', and checks that Q is orthogonal. slay, that's the whole vibe check 🔥

💜 Parameters 💜

• M — INTEGER. the number of rows of the matrix A. Constraint: M >= 0.
• N — INTEGER. the number of columns of the matrix A. Constraint: N >= 0.
• A — COMPLEX array, dimension (LDA,N). the m-by-n matrix A.
• AF — COMPLEX array, dimension (LDA,N). details of the RQ factorization of A, as returned by CGERQF. See CGERQF for further details.
• Q — COMPLEX array, dimension (LDA,N). the n-by-n orthogonal matrix Q.
• R — COMPLEX array, dimension (LDA,max(M,N)).
• LDA — INTEGER. the leading dimension of the arrays A, AF, Q and L. Constraint: LDA >= max(M,N).
• TAU — COMPLEX array, dimension (min(M,N)). the scalar factors of the elementary reflectors, as returned by CGERQF.
• WORK — COMPLEX array, dimension (LWORK).
• LWORK — INTEGER. the dimension of the array WORK.
• RWORK — REAL array, dimension (max(M,N)).
• RESULT — REAL array, dimension (2). the test ratios:
  • RESULT(1) = norm( R - A*Q' ) / ( N * norm(A) * EPS )
  • RESULT(2) = norm( I - Q*Q' ) / ( N * EPS )

👑 Author 👑

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

🎀 Definition 🎀

Definition at line 124 of file crqt01.f.

---

🌈 Author 🌈

Generated automatically by Doxygen for LAPACK from the source code.

---

LAPACK Version 3.12.0 · TESTING/LIN/crqt01.f(3) — that's the footer/source energy, bestie, and we are so done here 💅✨🫶