TESTING/LIN/cget02.f(3)

💅 TESTING/LIN/cget02.f(3) 💅

okay so this is the TESTING/LIN/cget02.f page from the Library Functions Manual, and honestly? It’s giving “small but mighty Fortran testing routine” energy. Let’s get into it, bestie. 🫶

---

💖 NAME 💖

TESTING/LIN/cget02.f — yes, that’s the file, and it’s the main character of this page. Periodt. 💅

---

🌸 SYNOPSIS 🌸

✨ Functions/Subroutines ✨

subroutine cget02 (trans, m, n, nrhs, a, lda, x, ldx, b, ldb, rwork,
    resid)
    CGET02

---

🦋 Function/Subroutine Documentation 🦋

Here’s the full signature, copied exactly because we do not play fast and loose with Fortran, bestie:

subroutine cget02 (character trans, integer m, integer n, integer nrhs,
    complex, dimension( lda, * ) a, integer lda, complex, dimension( ldx, *
    ) x, integer ldx, complex, dimension( ldb, * ) b, integer ldb, real,
    dimension( * ) rwork, real resid)
    CGET02

🎀 Purpose 🎀

CGET02 computes the residual for a solution of a system of linear equations op(A)*X = B:

RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),

where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the machine epsilon. Iconic little residual check, no cap. ✨

🍓 Parameters 🍓

• TRANS — TRANS is CHARACTER*1. Specifies the form of the system of equations:
  • = 'N': A * X = B (No transpose)
  • = 'T': A**T * X = B (Transpose)
  • = 'C': A**H * X = B (Conjugate transpose)
• M — M is INTEGER. The number of rows of the matrix A. M >= 0.
• N — N is INTEGER. The number of columns of the matrix A. N >= 0.
• NRHS — NRHS is INTEGER. The number of columns of B, the matrix of right hand sides. NRHS >= 0.
• A — A is COMPLEX array, dimension (LDA,N). The original M x N matrix A.
• LDA — LDA is INTEGER. The leading dimension of the array A. LDA >= max(1,M).
• X — X is COMPLEX array, dimension (LDX,NRHS). The computed solution vectors for the system of linear equations.
• LDX — LDX is INTEGER. The leading dimension of the array X. If TRANS = 'N', LDX >= max(1,N); if TRANS = 'T' or 'C', LDX >= max(1,M).
• B — B is COMPLEX array, dimension (LDB,NRHS). On entry, the right hand side vectors for the system of linear equations. On exit, B is overwritten with the difference B - op(A)*X.
• LDB — LDB is INTEGER. The leading dimension of the array B. IF TRANS = 'N', LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N).
• RWORK — RWORK is REAL array, dimension (M).
• RESID — RESID is REAL. The maximum over the number of right hand sides of norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).

👑 Author 👑

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

Definition at line 132 of file cget02.f.

---

🌈 Author 🌈

Generated automatically by Doxygen for LAPACK from the source code.

---

💖 Cute sign-off: this is LAPACK Version 3.12.0, generated automatically by Doxygen for LAPACK from the source code. The footer doesn’t hand us a date, so I’m not inventing one, bestie — no cap. Periodt. 💅