ZPRCN1(3)

🎀 CBLAS/testing/c_zblat3.f — the CBLAS/testing/c_zblat3.f(3) era 💅

okay bestie, strap in, because this page is literally just the biggest friend-group roster in Fortran. It's CBLAS/testing/c_zblat3.f, from the Library Functions Manual, and it's a whole cast of subroutines and functions that all live in this one file. No cap, there are twenty-two of them. We're doing all of them. Sit down, grab a strawberry drink 🍓, and let's go.

---

✨ NAME ✨

CBLAS/testing/c_zblat3.f — that's the file, that's the whole name, that's the vibe. 🌈

---

🦋 SYNOPSIS 🦋

Functions/Subroutines 👑

Heads up bestie: this is part 1 of the page, so we're not done yet — more of the roster is coming. Don't go anywhere 💖

program zblat3 🌸

The literal main character. zblat3 is a program, aka the whole show. It's got no argument list, it just is. Iconic behaviour honestly.

subroutine zchk1 🔥

subroutine zchk1 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
    nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c,
    cc, cs, ct, g, iorder)

The first of the checkers, and look at that argument list — sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, plus the alphabet-soup of arrays a, aa, as, b, bb, bs, c, cc, cs, ct, g, and finally iorder. That's twenty-three arguments. Twenty-three. She ate and left no crumbs. 🤯

subroutine zprcn1 ✨

subroutine zprcn1 (nout, nc, sname, iorder, transa, transb, m, n, k,
    alpha, lda, ldb, beta, ldc)

The printer buddy for the first family — nout, nc, sname, iorder, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc. Notice the transa/transb duo lowkey telling you this one's into transposes 👀

subroutine zchk2 🦋

subroutine zchk2 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
    nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c,
    cc, cs, ct, g, iorder)

Same exact energy as zchk1, same exact argument list, different number on the end. sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder. She's giving "same outfit, different day" and honestly? Slay.

subroutine zprcn2 💜

subroutine zprcn2 (nout, nc, sname, iorder, side, uplo, m, n, alpha,
    lda, ldb, beta, ldc)

Different squad, different flags: this one swaps in side and uplo and drops the transa/transb/k trio. Full list: nout, nc, sname, iorder, side, uplo, m, n, alpha, lda, ldb, beta, ldc. 🫶

subroutine zchk3 🧚

subroutine zchk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
    nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c,
    iorder)

Bestie, look closely — this checker is shorter. There's no nbet/bet in here, and ct, g, c are hanging out at the end in a different order than before. Exact list: sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c, iorder. She's the minimalist of the group. 💅

subroutine zprcn3 ⭐

subroutine zprcn3 (nout, nc, sname, iorder, side, uplo, transa, diag, m,
    n, alpha, lda, ldb)

Okay this one's got range: nout, nc, sname, iorder, side, uplo, transa, diag, m, n, alpha, lda, ldb. Four flag-ish args before we even hit m. The way she stacked side, uplo, transa, diag in a row is honestly a flex. 🔥

subroutine zchk4 🍓

subroutine zchk4 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
    nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c,
    cc, cs, ct, g, iorder)

Back to the full-length fit: sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder. Same twenty-three as zchk1 and zchk2 — them three are matching besties fr fr. 🎀

subroutine zprcn4 🌸

subroutine zprcn4 (nout, nc, sname, iorder, uplo, transa, n, k, alpha,
    lda, beta, ldc)

The printer for the fourth crowd: nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc. Note the missing transb and ldb — she's a transa girlie. 🙈

subroutine zprcn6 💀

subroutine zprcn6 (nout, nc, sname, iorder, uplo, transa, n, k, alpha,
    lda, beta, ldc)

Yes bestie, we went 4 then 6, that's not a typo, that's just the order the page gives us — zprcn6 shows up here, before zprcn5. And its argument list is identical to zprcn4: nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc. Twins. Not me being suspicious about it. 😭

subroutine zchk5 🌈

subroutine zchk5 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
    nidim, idim, nalf, alf, nbet, bet, nmax, ab, aa, as, bb, bs, c, cc,
    cs, ct, g, w, iorder)

Right, this checker brings friends: sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, ab, aa, as, bb, bs, c, cc, cs, ct, g, w, iorder. Notice she's got ab instead of a, bb instead of b, no bs… wait, she does have bs, no b-solo, and a whole extra w. Twenty-seven arguments. The range. 😮💨

subroutine zprcn5 👑

subroutine zprcn5 (nout, nc, sname, iorder, uplo, transa, n, k, alpha,
    lda, ldb, beta, ldc)

This one's got both lda and ldb: nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc. The extra ldb is doing so much work here honestly. 💖

subroutine zprcn7 🧚

subroutine zprcn7 (nout, nc, sname, iorder, uplo, transa, n, k, alpha,
    lda, ldb, beta, ldc)

Character-for-character the same as zprcn5: nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc. Them two are sharing a closet. 🎀

subroutine zmake 🔥

subroutine zmake (type, uplo, diag, m, n, a, nmax, aa, lda, reset,
    transl)

Okay zmake — she's a doer, not a printer, and she's got the cutest arg names of the whole file: type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl. reset and transl together at the end? Obsessed with them. 🦋

subroutine zmmch 💜

subroutine zmmch (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta,
    c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)

The full-deal one: transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv. That's twenty-two. Note kk with two k's, and yes it's different from plain k — do not mix them up, I'm begging. ✨

logical function lze 🌸

logical function lze (ri, rj, lr)

A function that returns logical — so it's giving yes/no energy. Takes ri, rj, lr. Short queen. 💅

logical function lzeres 🦋

logical function lzeres (type, uplo, m, n, aa, as, lda)

Another logical function, this time with type, uplo, m, n, aa, as, lda. Seven args and every one of them matters. 🫶

complex *16 function zbeg ⭐

complex *16 function zbeg (reset)

Return type is complex *16 and she takes exactly one argument: reset. One-arg icon. Main character energy, no notes. 👑

double precision function ddiff 🍓

double precision function ddiff (x, y)

A double precision function with two args, x and y. Baby of the family and honestly? She's doing great. 🥺

subroutine zchk6 🌈

subroutine zchk6 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
    nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c,
    cc, cs, ct, g, iorder)

Back to the group uniform — sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nbet, bet, nmax, a, aa, as, b, bb, bs, c, cc, cs, ct, g, iorder. Same as zchk1, zchk2, zchk4. The matching-sets squad grows. 🎀

subroutine zprcn8 💀

subroutine zprcn8 (nout, nc, sname, iorder, uplo, transa, transb, n, k,
    alpha, lda, ldb, beta, ldc)

Yes — zprcn8, and no, there was no zprcn7-adjacent zprcn8 ordering logic here, we just print them in the order the page says. Her list: nout, nc, sname, iorder, uplo, transa, transb, n, k, alpha, lda, ldb, beta, ldc. She's the only zprcn with both transa and transb in there with the uplo. Lucky her. 🍀

subroutine zmmtch 🧚

subroutine zmmtch (uplo, transa, transb, n, kk, alpha, a, lda, b, ldb,
    beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)

The last one on this part of the page, and she goes hard: uplo, transa, transb, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv. Twenty-two args, kk with the double k, ldcc with the double c. Absolutely unbothered, absolutely iconic. 🔥

⚠️ Real talk bestie: every single one of these — the program, both logical functions, the complex *16 function, the double precision function, and all the subroutines — is listed here as a function/subroutine of CBLAS/testing/c_zblat3.f(3). I'm not out here inventing anything about what they do internally, because the page doesn't say. We just love them for their signatures. 💖

---

✨ okay so that's all twenty-two of them from this half of the page. Part 2 is still coming, so don't close the tab, don't go get a snack, don't do it — more follows. 🫶

✨ Function/Subroutine Documentation ✨

Okay bestie, this part is the whole cast list of little functions and subroutines chilling in c_zblat3.f — signatures, line numbers, the works. No cap, we’re keeping every single one 💅

---

🌸 ddiff

double precision function ddiff (double precision x, double precision y)

Definition at line 2788 of file c_zblat3.f.

🦋 lze

logical function lze (complex*16, dimension( * ) ri, complex*16, dimension( * ) rj, integer lr)

Definition at line 2640 of file c_zblat3.f.

🎀 lzeres

logical function lzeres (character*2 type, character*1 uplo, integer m, integer n, complex*16, dimension( lda, * ) aa, complex*16, dimension( lda, * ) as, integer lda)

Definition at line 2672 of file c_zblat3.f.

⭐ zbeg

complex*16 function zbeg (logical reset)

Definition at line 2734 of file c_zblat3.f.

👑 zblat3

program zblat3

Definition at line 1 of file c_zblat3.f.

💖 zchk1

subroutine zchk1 (character*13 sname, double precision eps, double precision thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer nmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax, nmax ) b, complex*16, dimension( nmax*nmax ) bb, complex*16, dimension( nmax*nmax ) bs, complex*16, dimension( nmax, nmax ) c, complex*16, dimension( nmax*nmax ) cc, complex*16, dimension( nmax*nmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

Definition at line 441 of file c_zblat3.f.

🌈 zchk2

subroutine zchk2 (character*13 sname, double precision eps, double precision thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer nmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax, nmax ) b, complex*16, dimension( nmax*nmax ) bb, complex*16, dimension( nmax*nmax ) bs, complex*16, dimension( nmax, nmax ) c, complex*16, dimension( nmax*nmax ) cc, complex*16, dimension( nmax*nmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

Definition at line 771 of file c_zblat3.f.

🫶 zchk3

subroutine zchk3 (character*13 sname, double precision eps, double precision thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, complex*16, dimension( nalf ) alf, integer nmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax, nmax ) b, complex*16, dimension( nmax*nmax ) bb, complex*16, dimension( nmax*nmax ) bs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, complex*16, dimension( nmax, nmax ) c, integer iorder)

Definition at line 1093 of file c_zblat3.f.

💜 zchk4

subroutine zchk4 (character*13 sname, double precision eps, double precision thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer nmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax, nmax ) b, complex*16, dimension( nmax*nmax ) bb, complex*16, dimension( nmax*nmax ) bs, complex*16, dimension( nmax, nmax ) c, complex*16, dimension( nmax*nmax ) cc, complex*16, dimension( nmax*nmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

Definition at line 1457 of file c_zblat3.f.

🧚 zchk5

subroutine zchk5 (character*13 sname, double precision eps, double precision thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer nmax, complex*16, dimension( 2*nmax*nmax ) ab, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax*nmax ) bb, complex*16, dimension( nmax*nmax ) bs, complex*16, dimension( nmax, nmax ) c, complex*16, dimension( nmax*nmax ) cc, complex*16, dimension( nmax*nmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, complex*16, dimension( 2*nmax ) w, integer iorder)

Definition at line 1867 of file c_zblat3.f.

🌟 zchk6

subroutine zchk6 (character*13 sname, double precision eps, double precision thresh, integer nout, integer ntra, logical trace, logical rewi, logical fatal, integer nidim, integer, dimension( nidim ) idim, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer nmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax, nmax ) b, complex*16, dimension( nmax*nmax ) bb, complex*16, dimension( nmax*nmax ) bs, complex*16, dimension( nmax, nmax ) c, complex*16, dimension( nmax*nmax ) cc, complex*16, dimension( nmax*nmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

Definition at line 2808 of file c_zblat3.f.

🍓 zmake

subroutine zmake (character*2 type, character*1 uplo, character*1 diag, integer m, integer n, complex*16, dimension( nmax, * ) a, integer nmax, complex*16, dimension( * ) aa, integer lda, logical reset, complex*16 transl)

Definition at line 2321 of file c_zblat3.f.

🔥 zmmch

subroutine zmmch (character*1 transa, character*1 transb, integer m, integer n, integer kk, complex*16 alpha, complex*16, dimension( lda, * ) a, integer lda, complex*16, dimension( ldb, * ) b, integer ldb, complex*16 beta, complex*16, dimension( ldc, * ) c, integer ldc, complex*16, dimension( * ) ct, double precision, dimension( * ) g, complex*16, dimension( ldcc, * ) cc, integer ldcc, double precision eps, double precision err, logical fatal, integer nout, logical mv)

Definition at line 2450 of file c_zblat3.f.

💀 zmmtch

subroutine zmmtch (character*1 uplo, character*1 transa, character*1 transb, integer n, integer kk, complex*16 alpha, complex*16, dimension( lda, * ) a, integer lda, complex*16, dimension( ldb, * ) b, integer ldb, complex*16 beta, complex*16, dimension( ldc, * ) c, integer ldc, complex*16, dimension( * ) ct, double precision, dimension( * ) g, complex*16, dimension( ldcc, * ) cc, integer ldcc, double precision eps, double precision err, logical fatal, integer nout, logical mv)

Definition at line 3145 of file c_zblat3.f.

🌸 zprcn1

subroutine zprcn1 (integer nout, integer nc, character*13 sname, integer iorder, character*1 transa, character*1 transb, integer m, integer n, integer k, double complex alpha, integer lda, integer ldb, double complex beta, integer ldc)

Definition at line 736 of file c_zblat3.f.

🦋 zprcn2

subroutine zprcn2 (integer nout, integer nc, character*13 sname, integer iorder, character*1 side, character*1 uplo, integer m, integer n, double complex alpha, integer lda, integer ldb, double complex beta, integer ldc)

Definition at line 1062 of file c_zblat3.f.

🎀 zprcn3

subroutine zprcn3 (integer nout, integer nc, character*13 sname, integer iorder, character*1 side, character*1 uplo, character*1 transa, character*1 diag, integer m, integer n, double complex alpha, integer lda, integer ldb)

Definition at line 1414 of file c_zblat3.f.

⭐ zprcn4

subroutine zprcn4 (integer nout, integer nc, character*13 sname, integer iorder, character*1 uplo, character*1 transa, integer n, integer k, double complex alpha, integer lda, double complex beta, integer ldc)

Definition at line 1800 of file c_zblat3.f.

👑 zprcn5

subroutine zprcn5 (integer nout, integer nc, character*13 sname, integer iorder, character*1 uplo, character*1 transa, integer n, integer k, double complex alpha, integer lda, integer ldb, double complex beta, integer ldc)

Definition at line 2253 of file c_zblat3.f.

💖 zprcn6

subroutine zprcn6 (integer nout, integer nc, character*13 sname, integer iorder, character*1 uplo, character*1 transa, integer n, integer k, double precision alpha, integer lda, double precision beta, integer ldc)

Definition at line 1834 of file c_zblat3.f.

🌈 zprcn7

subroutine zprcn7 (integer nout, integer nc, character*13 sname, integer iorder, character*1 uplo, character*1 transa, integer n, integer k, double complex alpha, integer lda, integer ldb, double precision beta, integer ldc)

Definition at line 2287 of file c_zblat3.f.

🫶 zprcn8

subroutine zprcn8 (integer nout, integer nc, character*13 sname, integer iorder, character*1 uplo, character*1 transa, character*1 transb, integer n, integer k, complex*16 alpha, integer lda, integer ldb, complex*16 beta, integer ldc)

Definition at line 3103 of file c_zblat3.f.

---

🌸 Author 🌸

Generated automatically by Doxygen for LAPACK from the source code.

---

Okay that’s the whole run, bestie — source/version/date from the footer: LAPACK Version 3.12.0 / CBLAS/testing/c_zblat3.f(3). Periodt 💅💖