C_CBLAT3.F(3)

📦

version 3.12.1 · 3 versions

3.12.1 · arch rolling (latest)
3.12.0 · opensuse-leap 16.0
3.12.0 · centos-stream 10, fedora 43, fedora 44

💅 C_CBLAT3.F 💅

okay bestie, so this is the manual page for CBLAS/testing/c_cblat3.f from the LAPACK library — and no, it's not a typo, it's literally a Fortran file that lives at CBLAS/testing/c_cblat3.f (iykyk). It's part of the LAPACK family, version 3.12.0, and it's giving very much "complex BLAS level 3 test suite" energy. Let me walk you through every single function and subroutine in here, no cap. 🎀

✨ SYNOPSIS ✨

Functions/Subroutines

here's the whole cast of characters — literally everyone who shows up in this file:

program cblat3
subroutine cchk1 (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)
subroutine cprcn1 (nout, nc, sname, iorder, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc)
subroutine cchk2 (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)
subroutine cprcn2 (nout, nc, sname, iorder, side, uplo, m, n, alpha, lda, ldb, beta, ldc)
subroutine cchk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c, iorder)
subroutine cprcn3 (nout, nc, sname, iorder, side, uplo, transa, diag, m, n, alpha, lda, ldb)
subroutine cchk4 (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)
subroutine cprcn4 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)
subroutine cprcn6 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)
subroutine cchk5 (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)
subroutine cprcn5 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)
subroutine cprcn7 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)
subroutine cmake (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)
subroutine cmmch (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)
logical function lce (ri, rj, lr)
logical function lceres (type, uplo, m, n, aa, as, lda)
complex function cbeg (reset)
real function sdiff (x, y)
subroutine cchk6 (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)
subroutine cprcn8 (nout, nc, sname, iorder, uplo, transa, transb, n, k, alpha, lda, ldb, beta, ldc)
subroutine cmmtch (uplo, transa, transb, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)

🦋 Function/Subroutine Documentation 🦋

complex function `cbeg` (logical `reset`)

bestie, this one is literally a complex function that takes a logical reset arg. ✨

Definition at line 2731 of file c_cblat3.f.

program `cblat3`

the main character of the whole file — literally the program itself. 💅

Definition at line 1 of file c_cblat3.f.

subroutine `cchk1` (character13 `sname`, real `eps`, real `thresh`, integer `nout`, integer `ntra`, logical `trace`, logical `rewi`, logical `fatal`, integer `nidim`, integer, dimension( `nidim` ) `idim`, integer `nalf`, complex, dimension( `nalf` ) `alf`, integer `nbet`, complex, dimension( `nbet` ) `bet`, integer `nmax`, complex, dimension( `nmax`, `nmax` ) `a`, complex, dimension( `nmaxnmax` ) `aa`, complex, dimension( `nmaxnmax` ) `as`, complex, dimension( `nmax`, `nmax` ) `b`, complex, dimension( `nmaxnmax` ) `bb`, complex, dimension( `nmaxnmax` ) `bs`, complex, dimension( `nmax`, `nmax` ) `c`, complex, dimension( `nmaxnmax` ) `cc`, complex, dimension( `nmax*nmax` ) `cs`, complex, dimension( `nmax` ) `ct`, real, dimension( `nmax` ) `g`, integer `iorder`)

check subroutine numero uno — it takes a whole village of arguments, like sname, eps, thresh, nout, ntra, trace, rewi, fatal, then the dimension stuff: nidim, idim, nalf, alf, nbet, bet, nmax, and all the arrays a, aa, as, b, bb, bs, c, cc, cs, ct, g, plus iorder. iconic behavior tbh. 🌸

Definition at line 441 of file c_cblat3.f.

subroutine `cchk2` (character13 `sname`, real `eps`, real `thresh`, integer `nout`, integer `ntra`, logical `trace`, logical `rewi`, logical `fatal`, integer `nidim`, integer, dimension( `nidim` ) `idim`, integer `nalf`, complex, dimension( `nalf` ) `alf`, integer `nbet`, complex, dimension( `nbet` ) `bet`, integer `nmax`, complex, dimension( `nmax`, `nmax` ) `a`, complex, dimension( `nmaxnmax` ) `aa`, complex, dimension( `nmaxnmax` ) `as`, complex, dimension( `nmax`, `nmax` ) `b`, complex, dimension( `nmaxnmax` ) `bb`, complex, dimension( `nmaxnmax` ) `bs`, complex, dimension( `nmax`, `nmax` ) `c`, complex, dimension( `nmaxnmax` ) `cc`, complex, dimension( `nmax*nmax` ) `cs`, complex, dimension( `nmax` ) `ct`, real, dimension( `nmax` ) `g`, integer `iorder`)

second verse, same as the first — literally the same argument list as cchk1, fr fr. ✨

Definition at line 771 of file c_cblat3.f.

subroutine `cchk3` (character13 `sname`, real `eps`, real `thresh`, integer `nout`, integer `ntra`, logical `trace`, logical `rewi`, logical `fatal`, integer `nidim`, integer, dimension( `nidim` ) `idim`, integer `nalf`, complex, dimension( `nalf` ) `alf`, integer `nmax`, complex, dimension( `nmax`, `nmax` ) `a`, complex, dimension( `nmaxnmax` ) `aa`, complex, dimension( `nmaxnmax` ) `as`, complex, dimension( `nmax`, `nmax` ) `b`, complex, dimension( `nmaxnmax` ) `bb`, complex, dimension( `nmax*nmax` ) `bs`, complex, dimension( `nmax` ) `ct`, real, dimension( `nmax` ) `g`, complex, dimension( `nmax`, `nmax` ) `c`, integer `iorder`)

third one, and notice how it's missing nbet and bet compared to cchk1 and cchk2 — it's giving "I don't need beta energy" 💀. still has all the other lovely args though.

Definition at line 1093 of file c_cblat3.f.

subroutine `cchk4` (character13 `sname`, real `eps`, real `thresh`, integer `nout`, integer `ntra`, logical `trace`, logical `rewi`, logical `fatal`, integer `nidim`, integer, dimension( `nidim` ) `idim`, integer `nalf`, complex, dimension( `nalf` ) `alf`, integer `nbet`, complex, dimension( `nbet` ) `bet`, integer `nmax`, complex, dimension( `nmax`, `nmax` ) `a`, complex, dimension( `nmaxnmax` ) `aa`, complex, dimension( `nmaxnmax` ) `as`, complex, dimension( `nmax`, `nmax` ) `b`, complex, dimension( `nmaxnmax` ) `bb`, complex, dimension( `nmaxnmax` ) `bs`, complex, dimension( `nmax`, `nmax` ) `c`, complex, dimension( `nmaxnmax` ) `cc`, complex, dimension( `nmax*nmax` ) `cs`, complex, dimension( `nmax` ) `ct`, real, dimension( `nmax` ) `g`, integer `iorder`)

back on the beta train with nbet and bet — full house again bestie. 🎀

Definition at line 1457 of file c_cblat3.f.

subroutine `cchk5` (character13 `sname`, real `eps`, real `thresh`, integer `nout`, integer `ntra`, logical `trace`, logical `rewi`, logical `fatal`, integer `nidim`, integer, dimension( `nidim` ) `idim`, integer `nalf`, complex, dimension( `nalf` ) `alf`, integer `nbet`, complex, dimension( `nbet` ) `bet`, integer `nmax`, complex, dimension( `2nmaxnmax` ) `ab`, complex, dimension( `nmaxnmax` ) `aa`, complex, dimension( `nmaxnmax` ) `as`, complex, dimension( `nmaxnmax` ) `bb`, complex, dimension( `nmaxnmax` ) `bs`, complex, dimension( `nmax`, `nmax` ) `c`, complex, dimension( `nmaxnmax` ) `cc`, complex, dimension( `nmaxnmax` ) `cs`, complex, dimension( `nmax` ) `ct`, real, dimension( `nmax` ) `g`, complex, dimension( `2nmax` ) `w`, integer `iorder`)

this one's got extra storage energy — ab is 2*nmax*nmax sized and there's a w array of 2*nmax — highkey the most stacked signature here. 🫶

Definition at line 1867 of file c_cblat3.f.

subroutine `cchk6` (character13 `sname`, real `eps`, real `thresh`, integer `nout`, integer `ntra`, logical `trace`, logical `rewi`, logical `fatal`, integer `nidim`, integer, dimension( `nidim` ) `idim`, integer `nalf`, complex, dimension( `nalf` ) `alf`, integer `nbet`, complex, dimension( `nbet` ) `bet`, integer `nmax`, complex, dimension( `nmax`, `nmax` ) `a`, complex, dimension( `nmaxnmax` ) `aa`, complex, dimension( `nmaxnmax` ) `as`, complex, dimension( `nmax`, `nmax` ) `b`, complex, dimension( `nmaxnmax` ) `bb`, complex, dimension( `nmaxnmax` ) `bs`, complex, dimension( `nmax`, `nmax` ) `c`, complex, dimension( `nmaxnmax` ) `cc`, complex, dimension( `nmax*nmax` ) `cs`, complex, dimension( `nmax` ) `ct`, real, dimension( `nmax` ) `g`, integer `iorder`)

last of the chk crew — same vibes as cchk1, cchk2, cchk4 but different line number, obviously. 🌈

Definition at line 2805 of file c_cblat3.f.

subroutine `cmake` (character2 `type`, character1 `uplo`, character1 `diag`, integer `m`, integer `n`, complex, dimension( `nmax`, ) `a`, integer `nmax`, complex, dimension( * ) `aa`, integer `lda`, logical `reset`, complex `transl`)

the iconic make-r — builds arrays for days. note the dimension( nmax, * ) and dimension( * ) — those asterisks are doing a lot of lifting. ⭐

Definition at line 2321 of file c_cblat3.f.

subroutine `cmmch` (character1 `transa`, character1 `transb`, integer `m`, integer `n`, integer `kk`, complex `alpha`, complex, dimension( `lda`, * ) `a`, integer `lda`, complex, dimension( `ldb`, * ) `b`, integer `ldb`, complex `beta`, complex, dimension( `ldc`, * ) `c`, integer `ldc`, complex, dimension( * ) `ct`, real, dimension( * ) `g`, complex, dimension( `ldcc`, * ) `cc`, integer `ldcc`, real `eps`, real `err`, logical `fatal`, integer `nout`, logical `mv`)

cmmch is giving matrix multiply check energy — transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv. obsessed with the lda/ldb/ldc/ldcc leading-dimension parade. 🔥

Definition at line 2449 of file c_cblat3.f.

subroutine `cmmtch` (character1 `uplo`, character1 `transa`, character1 `transb`, integer `n`, integer `kk`, complex `alpha`, complex, dimension( `lda`, ) `a`, integer `lda`, complex, dimension( `ldb`, * ) `b`, integer `ldb`, complex `beta`, complex, dimension( `ldc`, * ) `c`, integer `ldc`, complex, dimension( * ) `ct`, real, dimension( * ) `g`, complex, dimension( `ldcc`, * ) `cc`, integer `ldcc`, real `eps`, real `err`, logical `fatal`, integer `nout`, logical `mv`)

very similar to cmmch but with uplo energy added and n instead of m — the way it swaps m/n and adds uplo? that's the main character energy right there. 💜

Definition at line 3142 of file c_cblat3.f.

subroutine `cprcn1` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `transa`, character*1 `transb`, integer `m`, integer `n`, integer `k`, complex `alpha`, integer `lda`, integer `ldb`, complex `beta`, integer `ldc`)

printer routine #1 — prints error reports like the good little subroutine it is. 💖

Definition at line 736 of file c_cblat3.f.

subroutine `cprcn2` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `side`, character*1 `uplo`, integer `m`, integer `n`, complex `alpha`, integer `lda`, integer `ldb`, complex `beta`, integer `ldc`)

printer #2 — this one's got side and uplo instead of transa/transb/k. slay. ✨

Definition at line 1062 of file c_cblat3.f.

subroutine `cprcn3` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `side`, character1 `uplo`, character1 `transa`, character*1 `diag`, integer `m`, integer `n`, complex `alpha`, integer `lda`, integer `ldb`)

printer #3 — has side, uplo, transa, AND diag — that's four character*1 args, no beta/ldc though. it's giving "triangular energy" 💅

Definition at line 1414 of file c_cblat3.f.

subroutine `cprcn4` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `uplo`, character*1 `transa`, integer `n`, integer `k`, complex `alpha`, integer `lda`, complex `beta`, integer `ldc`)

printer #4 — alpha and beta are both complex here, and note there's no ldb (yet there IS lda) — stay woke. 👑

Definition at line 1800 of file c_cblat3.f.

subroutine `cprcn5` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `uplo`, character*1 `transa`, integer `n`, integer `k`, complex `alpha`, integer `lda`, integer `ldb`, complex `beta`, integer `ldc`)

printer #5 — this one's got BOTH lda and ldb back in the mix. full house. 🎀

Definition at line 2253 of file c_cblat3.f.

subroutine `cprcn6` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `uplo`, character*1 `transa`, integer `n`, integer `k`, real `alpha`, integer `lda`, real `beta`, integer `ldc`)

wait — printer #6 is giving REAL alpha and REAL beta — not complex! plot twist bestie. 🌸

Definition at line 1834 of file c_cblat3.f.

subroutine `cprcn7` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `uplo`, character*1 `transa`, integer `n`, integer `k`, complex `alpha`, integer `lda`, integer `ldb`, real `beta`, integer `ldc`)

printer #7 — mixing it up: complex alpha but REAL beta, with lda AND ldb. chaotic in the best way. 🦋

Definition at line 2287 of file c_cblat3.f.

subroutine `cprcn8` (integer `nout`, integer `nc`, character13 `sname`, integer `iorder`, character1 `uplo`, character1 `transa`, character1 `transb`, integer `n`, integer `k`, complex `alpha`, integer `lda`, integer `ldb`, complex `beta`, integer `ldc`)

printer #8 — got BOTH transa AND transb, with complex everything. final form. ⭐

Definition at line 3100 of file c_cblat3.f.

logical function `lce` (complex, dimension( * ) `ri`, complex, dimension( * ) `rj`, integer `lr`)

a logical function taking two complex arrays ri and rj plus an integer lr — returns a logical, obviously. 💜

Definition at line 2637 of file c_cblat3.f.

logical function `lceres` (character2 `type`, character1 `uplo`, integer `m`, integer `n`, complex, dimension( `lda`, * ) `aa`, complex, dimension( `lda`, * ) `as`, integer `lda`)

logical function checking residual stuff — type, uplo, m, n, aa, as, lda. big "am I passing the vibe check" energy. 🔥

Definition at line 2669 of file c_cblat3.f.

real function `sdiff` (real `x`, real `y`)

literally just takes two reals x and y and returns a real — probably the diff between them, but I'm not gonna speculate (no technical claims I can't back up, bestie). 😌

Definition at line 2785 of file c_cblat3.f.

🌈 Author 🌈

bestie, this bad boy was Generated automatically by Doxygen for LAPACK from the source code — so like, no human author wrote this by hand, it's all Doxygen magic. 🤖✨

okay so that's literally the whole page! all 22 functions/subroutines, every single arg, every single line number, nothing skipped. you're welcome bestie 💖

and for the sign-off: this gorgeous manual page is from LAPACK, Version 3.12.0, dated in the footer as CBLAS/testing/c_cblat3.f(3) — cute, iconic, slay. bye bestie, go call some subroutines! 🎀🫶💅

📦 where this page comes from

arch rolling: lapack-doc 3.12.1-2 · custom
💖 girlified by deepseek-ai/DeepSeek-V4.1-Flash-1017 on 2026-11-04: a language model's rewrite of the original, under its terms

C_CBLAT3.F(3)

💅 C_CBLAT3.F 💅

✨ SYNOPSIS ✨

Functions/Subroutines

🦋 Function/Subroutine Documentation 🦋

complex function cbeg (logical reset)

program cblat3

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

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

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

subroutine cprcn3 (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, complex alpha, integer lda, integer ldb)

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

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

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

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

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

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

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

real function sdiff (real x, real y)