ZPRCN6(3)

💅 NAME

okay so bestie, this page is literally all about one file — one single Fortran file — and its whole squad of routines. The manual is the Library Functions Manual, the page is ZPRCN1(3), and the file in question is:

/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/CBLAS/testing/c_zblat3.f

that's the whole name entry, no notes, no extra lore. 🎀

🦋 SYNOPSIS

✨ Functions/Subroutines

here's the full cast, in the order the page serves them to you — no skipping, no cutting, we're doing all of them 💖

program ZBLAT3
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)
subroutine ZPRCN1 (nout, nc, sname, iorder, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc)
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)
subroutine ZPRCN2 (nout, nc, sname, iorder, side, uplo, m, n, alpha, lda, ldb, beta, ldc)
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)
subroutine ZPRCN3 (nout, nc, sname, iorder, side, uplo, transa, diag, m, n, alpha, lda, ldb)
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)
subroutine ZPRCN4 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)
subroutine ZPRCN6 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, beta, ldc)
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)
subroutine ZPRCN5 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)
subroutine ZPRCN7 (nout, nc, sname, iorder, uplo, transa, n, k, alpha, lda, ldb, beta, ldc)
subroutine ZMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)
subroutine ZMMCH (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)
logical function LZE (ri, rj, lr)
logical function LZERES (type, uplo, m, n, aa, as, lda)
complex *16 function ZBEG (reset)
double precision function DDIFF (x, y)

ngl the roster is giving "everyone showed up to the group project" 🔥 and yes, ZPRCN6 really does show up before ZCHK5 in the synopsis and then before ZPRCN7 in the docs. that's not a typo on my end, that's just how the page rolls. respect the order.

🎀 Function/Subroutine Documentation

this section is alphabetical-ish by name, and each entry gives you the signature plus the line number where it lives. that's literally all the page gives — no prose, no little story, just vibes and line numbers 🫶

⭐ `double precision function DDIFF (double precision x, double precision y)`

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

Definition at line 2773 of file c_zblat3.f.

⭐ `logical function LZE (complex16, dimension( ) ri, complex16, dimension( ) rj, integer lr)`

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

Definition at line 2625 of file c_zblat3.f.

⭐ `logical function LZERES (character2 type, character1 uplo, integer m, integer n, complex16, dimension( lda, ) aa, complex16, dimension( lda, ) as, integer lda)`

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 2657 of file c_zblat3.f.

⭐ `complex*16 function ZBEG (logical reset)`

complex*16 function ZBEG (logical reset)

Definition at line 2719 of file c_zblat3.f.

⭐ `program ZBLAT3`

program ZBLAT3

Definition at line 1 of file c_zblat3.f. — first line of the file, main character energy, obviously 👑

⭐ subroutine ZCHK1 (character12 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, complex16, dimension( nalf ) alf, integer nbet, complex16, dimension( nbet ) bet, integer nmax, complex16, dimension( nmax, nmax ) a, complex16, dimension( nmaxnmax ) aa, complex16, dimension( nmaxnmax ) as, complex16, dimension( nmax, nmax ) b, complex16, dimension( nmaxnmax ) bb, complex16, dimension( nmaxnmax ) bs, complex16, dimension( nmax, nmax ) c, complex16, dimension( nmaxnmax ) cc, complex16, dimension( nmaxnmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

subroutine ZCHK1 (character*12 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 426 of file c_zblat3.f.

⭐ subroutine ZCHK2 (character12 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, complex16, dimension( nalf ) alf, integer nbet, complex16, dimension( nbet ) bet, integer nmax, complex16, dimension( nmax, nmax ) a, complex16, dimension( nmaxnmax ) aa, complex16, dimension( nmaxnmax ) as, complex16, dimension( nmax, nmax ) b, complex16, dimension( nmaxnmax ) bb, complex16, dimension( nmaxnmax ) bs, complex16, dimension( nmax, nmax ) c, complex16, dimension( nmaxnmax ) cc, complex16, dimension( nmaxnmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

subroutine ZCHK2 (character*12 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 756 of file c_zblat3.f. — yes, identical signature to ZCHK1, no I am not gaslighting you, it's fr fr the same list 💀

⭐ subroutine ZCHK3 (character12 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, complex16, dimension( nalf ) alf, integer nmax, complex16, dimension( nmax, nmax ) a, complex16, dimension( nmaxnmax ) aa, complex16, dimension( nmaxnmax ) as, complex16, dimension( nmax, nmax ) b, complex16, dimension( nmaxnmax ) bb, complex16, dimension( nmaxnmax ) bs, complex16, dimension( nmax ) ct, double precision, dimension( nmax ) g, complex16, dimension( nmax, nmax ) c, integer iorder)

subroutine ZCHK3 (character*12 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 1078 of file c_zblat3.f. — sneak peek: no nbet/bet in this one, and ct/g slide in before c. little glow-up, we love to see it ✨

⭐ subroutine ZCHK4 (character12 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, complex16, dimension( nalf ) alf, integer nbet, complex16, dimension( nbet ) bet, integer nmax, complex16, dimension( nmax, nmax ) a, complex16, dimension( nmaxnmax ) aa, complex16, dimension( nmaxnmax ) as, complex16, dimension( nmax, nmax ) b, complex16, dimension( nmaxnmax ) bb, complex16, dimension( nmaxnmax ) bs, complex16, dimension( nmax, nmax ) c, complex16, dimension( nmaxnmax ) cc, complex16, dimension( nmaxnmax ) cs, complex*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, integer iorder)

subroutine ZCHK4 (character*12 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 1442 of file c_zblat3.f.

⭐ subroutine ZCHK5 (character12 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, complex16, dimension( nalf ) alf, integer nbet, complex16, dimension( nbet ) bet, integer nmax, complex16, dimension( 2nmaxnmax ) ab, complex16, dimension( nmaxnmax ) aa, complex16, dimension( nmaxnmax ) as, complex16, dimension( nmaxnmax ) bb, complex16, dimension( nmaxnmax ) bs, complex16, dimension( nmax, nmax ) c, complex16, dimension( nmaxnmax ) cc, complex16, dimension( nmaxnmax ) cs, complex16, dimension( nmax ) ct, double precision, dimension( nmax ) g, complex16, dimension( 2nmax ) w, integer iorder)

subroutine ZCHK5 (character*12 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 1852 of file c_zblat3.f. — this one brought friends: ab at 2*nmax*nmax and w at 2*nmax, and it skipped b. iconique 🦋

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

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 2306 of file c_zblat3.f.

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

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 2435 of file c_zblat3.f. — ok the arg list is lowkey a whole paragraph, but notice kk is two letters and everyone else is single. main character detail 💅

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

subroutine ZPRCN1 (integer nout, integer nc, character*12 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 721 of file c_zblat3.f. — yup, the one this page is named after 💖

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

subroutine ZPRCN2 (integer nout, integer nc, character*12 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 1047 of file c_zblat3.f.

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

subroutine ZPRCN3 (integer nout, integer nc, character*12 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 1399 of file c_zblat3.f.

⭐ `subroutine ZPRCN4 (integer nout, integer nc, character12 sname, integer iorder, character1 uplo, character*1 transa, integer n, integer k, double complex alpha, integer lda, double complex beta, integer ldc)`

subroutine ZPRCN4 (integer nout, integer nc, character*12 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 1785 of file c_zblat3.f.

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

subroutine ZPRCN5 (integer nout, integer nc, character*12 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 2238 of file c_zblat3.f.

⭐ `subroutine ZPRCN6 (integer nout, integer nc, character12 sname, integer iorder, character1 uplo, character*1 transa, integer n, integer k, double precision alpha, integer lda, double precision beta, integer ldc)`

subroutine ZPRCN6 (integer nout, integer nc, character*12 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 1819 of file c_zblat3.f. — heads up: alpha and beta here are double precision, not double complex, and there's no ldb. read it twice, bestie, it's a whole different vibe 🙈

⭐ `subroutine ZPRCN7 (integer nout, integer nc, character12 sname, integer iorder, character1 uplo, character*1 transa, integer n, integer k, double complex alpha, integer lda, integer ldb, double precision beta, integer ldc)`

subroutine ZPRCN7 (integer nout, integer nc, character*12 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 2272 of file c_zblat3.f. — mixed friend: alpha is double complex, beta is double precision. literally both at once 😭

👑 Author

Generated automatically by Doxygen for LAPACK from the source code.

so nobody hand-wrote this, a robot did, and honestly it ate 🤖✨

and that's the page, bestie! 🎀 full file, every signature, every line number, zero gatekeeping.

sign-off time: this was LAPACK, Version 3.12.0, and the page came from /home/abui.../c_zblat3.f(3) — mwah, go forth and read your Fortran 💖🦋

📦 where this page comes from

opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 · BSD-3-Clause
opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 · BSD-3-Clause
opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 · BSD-3-Clause
opensuse-leap 16.0: lapack-man 3.12.0-160000.2.2 · BSD-3-Clause
💖 girlified by deepseek-ai/DeepSeek-V4.1-Flash-1017 on 2026-11-04: a language model's rewrite of the original, under its terms

ZPRCN6(3)

💅 NAME

🦋 SYNOPSIS

✨ Functions/Subroutines

🎀 Function/Subroutine Documentation

⭐ double precision function DDIFF (double precision x, double precision y)

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

⭐ 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)

⭐ complex*16 function ZBEG (logical reset)

⭐ program ZBLAT3

⭐ 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)

⭐ subroutine ZPRCN1 (integer nout, integer nc, character*12 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)

⭐ subroutine ZPRCN2 (integer nout, integer nc, character*12 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)

⭐ subroutine ZPRCN3 (integer nout, integer nc, character*12 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)

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

⭐ subroutine ZPRCN5 (integer nout, integer nc, character*12 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)

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

⭐ subroutine ZPRCN7 (integer nout, integer nc, character*12 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)