CPTT01(3)

💅 CPTT01(3) — Library Functions Manual ✨

okay so bestie, this is the cptt01.f(3) page in the Library Functions Manual, and it’s giving “LAPACK testing routine that checks its own work.” No cap, it’s iconic. 🫶

---

✨ NAME ✨

/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/TESTING/LIN/cptt01.f

---

🦋 SYNOPSIS 🦋

Functions/Subroutines 🧚

       subroutine CPTT01 (n, d, e, df, ef, work, resid)
           CPTT01

---

💖 Function/Subroutine Documentation 💖

subroutine CPTT01 (integer n, real, dimension( * ) d, complex, dimension( *
       ) e, real, dimension( * ) df, complex, dimension( * ) ef, complex,
       dimension( * ) work, real resid)
       CPTT01

Purpose 💖

CPTT01 reconstructs a tridiagonal matrix A from its L*D*L' factorization and computes the residual

norm(L*D*L' - A) / ( n * norm(A) * EPS ),

where EPS is the machine epsilon. periodt. ✨

Parameters 🍓

• N — N is INTEGER; the order of the matrix A. 🦋
• D — D is REAL array, dimension (N); the n diagonal elements of the tridiagonal matrix A. 🍓
• E — E is COMPLEX array, dimension (N-1); the (n-1) subdiagonal elements of the tridiagonal matrix A. ✨
• DF — DF is REAL array, dimension (N); the n diagonal elements of the factor L from the L*D*L' factorization of A. 💅
• EF — EF is COMPLEX array, dimension (N-1); the (n-1) subdiagonal elements of the factor L from the L*D*L' factorization of A. 🎀
• WORK — WORK is COMPLEX array, dimension (2*N). 🔥
• RESID — RESID is REAL; norm(L*D*L' - A) / (n * norm(A) * EPS). 👑

Author 👑

• Univ. of Tennessee 🌸
• Univ. of California Berkeley 🦋
• Univ. of Colorado Denver 🎀
• NAG Ltd. 💜

Definition at line 91 of file cptt01.f. 📌

---

🤖 Author (auto-generated) 🤖

Generated automatically by Doxygen for LAPACK from the source code.

---

mwah 💋 from LAPACK Version 3.12.0, footer pinging /home/abui...IN/cptt01.f(3) — that’s the whole footer situation, bestie. 💜