BLAS/TESTING/zblat2.f(3)

📦

version 3.12.1 · 2 versions

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

💖 NAME 💖

Manual name: BLAS/TESTING/zblat2.f(3) — folded in right at the top, bestie, so we’re not just copy-pasting the header line. The NAME section itself gives it as BLAS/TESTING/zblat2.f.

✨ SYNOPSIS ✨

Okay so this is part 1 of 2, and it’s the synopsis guest list. Every function and subroutine below is exactly as the page gives it — names, signatures, argument order, all of it. No cap, no edits, no sneaky merges. 🫶

🎀 Functions/Subroutines 🎀

program zblat2 — the main program, and the page also tags it ZBLAT2. Main character energy fr fr. 👑
subroutine zchk1 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g) — exact signature, every argument accounted for. 💅
subroutine zchk2 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g) — same signature shape as zchk1, copied exactly from the page. ✨
subroutine zchk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, xt, g, z) — here’s the exact arg list, including xt and z. 🦋
subroutine zchk4 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z) — the full signature, no details dropped. 🌸
subroutine zchk5 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z) — signature card, exactly as listed. 💜
subroutine zchk6 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z) — same full signature as zchk4 and zchk5, because that’s what the page says. 🫶
subroutine zchke (isnum, srnamt, nout) — short and iconic. 🎀
subroutine zmake (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku, reset, transl) — exact signature, all args in order. 🔥
subroutine zmvch (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, eps, err, fatal, nout, mv) — long signature, fully preserved. 🌈
logical function lze (ri, rj, lr) — logical function, exact name and args. ⭐
logical function lzeres (type, uplo, m, n, aa, as, lda) — logical function, signature untouched. 💫
complex *16 function zbeg (reset) — complex *16 function, exactly as written. 💅
double precision function ddiff (x, y) — double precision function, signature copied character for character. 🧚
subroutine chkxer (srnamt, infot, nout, lerr, ok) — exact subroutine signature. 🍓
subroutine zregr1 (trans, m, n, ly, kl, ku, alpha, a, lda, x, incx, beta, y, incy, ys) — full arg list, no omissions. 🌟
subroutine xerbla (srname, info) — exact subroutine signature. 🦋

💖 Function/Subroutine Documentation 💖

okay bestie, this is the whole cast of helpers living inside zblat2.f — every signature, every line number, all of it. no skips, no vibes-based omissions, periodt. ✨

🎀 `chkxer`

this one's exact call shape is literally:

   subroutine chkxer (character*6 srnamt, integer infot, integer nout, logical
       lerr, logical ok)

Definition at line 3231 of file zblat2.f.

🍓 `ddiff`

a double precision function, and the signature is giving:

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

Definition at line 3215 of file zblat2.f.

🦋 `lze`

logical function energy — here's the exact signature:

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

Definition at line 3074 of file zblat2.f.

🌸 `lzeres`

another logical function, bestie, with this exact signature:

   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 3104 of file zblat2.f.

🧚 `xerbla`

subroutine era. signature:

   subroutine xerbla (character*6 srname, integer info)

Definition at line 3292 of file zblat2.f.

👑 `zbeg`

this one is a complex*16 function, no cap:

   complex*16 function zbeg (logical reset)

Definition at line 3163 of file zblat2.f.

🌈 `program zblat2`

the main character. literally:

   program zblat2
       ZBLAT2

Purpose

okay so this is the test program for the COMPLEX*16 Level 2 Blas. it has to be driven by a short data file: the first 18 records are read using list-directed input, and the last 17 records are read using the format ( A6, L2 ). want an annotated example of a data file? delete the first 3 characters from these 35 lines:

'zblat2.out'      NAME OF SUMMARY OUTPUT FILE
6                 UNIT NUMBER OF SUMMARY FILE
'CBLA2T.SNAP'     NAME OF SNAPSHOT OUTPUT FILE
-1                UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
F        LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
F        LOGICAL FLAG, T TO STOP ON FAILURES.
T        LOGICAL FLAG, T TO TEST ERROR EXITS.
16.0     THRESHOLD VALUE OF TEST RATIO
6                 NUMBER OF VALUES OF N
0 1 2 3 5 9       VALUES OF N
4                 NUMBER OF VALUES OF K
0 1 2 4           VALUES OF K
4                 NUMBER OF VALUES OF INCX AND INCY
1 2 -1 -2         VALUES OF INCX AND INCY
3                 NUMBER OF VALUES OF ALPHA
(0.0,0.0) (1.0,0.0) (0.7,-0.9)       VALUES OF ALPHA
3                 NUMBER OF VALUES OF BETA
(0.0,0.0) (1.0,0.0) (1.3,-1.1)       VALUES OF BETA
ZGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZHEMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZHBMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZHPMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZTRMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZTBMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZTPMV  T PUT F FOR NO TEST. SAME COLUMNS.
ZTRSV  T PUT F FOR NO TEST. SAME COLUMNS.
ZTBSV  T PUT F FOR NO TEST. SAME COLUMNS.
ZTPSV  T PUT F FOR NO TEST. SAME COLUMNS.
ZGERC  T PUT F FOR NO TEST. SAME COLUMNS.
ZGERU  T PUT F FOR NO TEST. SAME COLUMNS.
ZHER   T PUT F FOR NO TEST. SAME COLUMNS.
ZHPR   T PUT F FOR NO TEST. SAME COLUMNS.
ZHER2  T PUT F FOR NO TEST. SAME COLUMNS.
ZHPR2  T PUT F FOR NO TEST. SAME COLUMNS.

Further Details

the original says see:

   Dongarra J. J., Du Croz J. J., Hammarling S.  and Hanson R. J..
   An  extended  set of Fortran  Basic Linear Algebra Subprograms.

   Technical  Memoranda  Nos. 41 (revision 3) and 81,  Mathematics
   and  Computer Science  Division,  Argonne  National Laboratory,
   9700 South Cass Avenue, Argonne, Illinois 60439, US.

   Or

   NAG  Technical Reports TR3/87 and TR4/87,  Numerical Algorithms
   Group  Ltd.,  NAG  Central  Office,  256  Banbury  Road, Oxford
   OX2 7DE, UK,  and  Numerical Algorithms Group Inc.,  1101  31st
   Street,  Suite 100,  Downers Grove,  Illinois 60515-1263,  USA.

-- Written on 10-August-1987.
   Richard Hanson, Sandia National Labs.
   Jeremy Du Croz, NAG Central Office.

   10-9-00:  Change STATUS='NEW' to 'UNKNOWN' so that the testers
             can be run multiple times without deleting generated
             output files (susan)

Author

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

Definition at line 102 of file zblat2.f.

🫶 `zchk1`

this signature is long and iconic, so here it is exactly:

   subroutine zchk1 (character*6 sname, double precision eps, double precision
       thresh, integer nout, integer ntra, logical trace, logical rewi, logical
       fatal, integer nidim, integer, dimension( nidim ) idim, integer nkb,
       integer, dimension( nkb ) kb, integer nalf, complex*16, dimension( nalf
       ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer ninc,
       integer, dimension( ninc ) inc, integer nmax, integer incmax,
       complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax
       ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax
       ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension(
       nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16,
       dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys,
       complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g)

Definition at line 435 of file zblat2.f.

💜 `zchk2`

same big-energy signature shape, different routine:

   subroutine zchk2 (character*6 sname, double precision eps, double precision
       thresh, integer nout, integer ntra, logical trace, logical rewi, logical
       fatal, integer nidim, integer, dimension( nidim ) idim, integer nkb,
       integer, dimension( nkb ) kb, integer nalf, complex*16, dimension( nalf
       ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer ninc,
       integer, dimension( ninc ) inc, integer nmax, integer incmax,
       complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax
       ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax
       ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension(
       nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16,
       dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys,
       complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g)

Definition at line 809 of file zblat2.f.

⭐ `zchk3`

here's the exact call shape for zchk3:

   subroutine zchk3 (character*6 sname, double precision eps, double precision
       thresh, integer nout, integer ntra, logical trace, logical rewi, logical
       fatal, integer nidim, integer, dimension( nidim ) idim, integer nkb,
       integer, dimension( nkb ) kb, integer ninc, integer, dimension( ninc )
       inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax )
       a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension(
       nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension(
       nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16,
       dimension( nmax ) xt, double precision, dimension( nmax ) g, complex*16,
       dimension( nmax ) z)

Definition at line 1158 of file zblat2.f.

🔥 `zchk4`

this one's signature is literally:

   subroutine zchk4 (character*6 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 ninc, integer, dimension(
       ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax,
       nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension(
       nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension(
       nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16,
       dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy,
       complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax )
       yt, double precision, dimension( nmax ) g, complex*16, dimension( nmax )
       z)

Definition at line 1520 of file zblat2.f.

🎀 `zchk5`

same signature energy as zchk4, bestie:

   subroutine zchk5 (character*6 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 ninc, integer, dimension(
       ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax,
       nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension(
       nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension(
       nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16,
       dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy,
       complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax )
       yt, double precision, dimension( nmax ) g, complex*16, dimension( nmax )
       z)

Definition at line 1798 of file zblat2.f.

🦋 `zchk6`

this one has a little 2 in the last dimension and we are obsessed:

   subroutine zchk6 (character*6 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 ninc, integer, dimension(
       ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax,
       nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension(
       nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension(
       nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16,
       dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy,
       complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax )
       yt, double precision, dimension( nmax ) g, complex*16, dimension( nmax,
       2 ) z)

Definition at line 2083 of file zblat2.f.

🌸 `zchke`

short and sweet:

   subroutine zchke (integer isnum, character*6 srnamt, integer nout)

Definition at line 2406 of file zblat2.f.

🧚 `zmake`

this one's signature is giving "many arguments, all accounted for":

   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, integer kl, integer ku,
       logical reset, complex*16 transl)

Definition at line 2749 of file zblat2.f.

👑 `zmvch`

exact signature, no cap:

   subroutine zmvch (character*1 trans, integer m, integer n, complex*16 alpha,
       complex*16, dimension( nmax, * ) a, integer nmax, complex*16, dimension(
       * ) x, integer incx, complex*16 beta, complex*16, dimension( * ) y,
       integer incy, complex*16, dimension( * ) yt, double precision,
       dimension( * ) g, complex*16, dimension( * ) yy, double precision eps,
       double precision err, logical fatal, integer nout, logical mv)

Definition at line 2942 of file zblat2.f.

🌈 `zregr1`

last but absolutely not least, bestie:

   subroutine zregr1 (character*1 trans, integer m, integer n, integer ly,
       integer kl, integer ku, complex*16 alpha, complex*16, dimension(lda,*)
       a, integer lda, complex*16, dimension(*) x, integer incx, complex*16
       beta, complex*16, dimension(*) y, integer incy, complex*16, dimension(*)
       ys)

Definition at line 3259 of file zblat2.f.

🌈 Author 🌈

Generated automatically by Doxygen for LAPACK from the source code.

okay that's the whole page, bestie 💅 — it came from LAPACK Version 3.12.0, BLAS/TESTING/zblat2.f(3), with the footer's source/version/date stamp situation all noted here instead of copied. bye and stay iconic 🫶

📦 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

BLAS/TESTING/zblat2.f(3)

💖 NAME 💖

✨ SYNOPSIS ✨

🎀 Functions/Subroutines 🎀

💖 Function/Subroutine Documentation 💖

🎀 chkxer

🍓 ddiff

🦋 lze

🌸 lzeres

🧚 xerbla

👑 zbeg

🌈 program zblat2

Purpose

Further Details

Author

🫶 zchk1

💜 zchk2

⭐ zchk3

🔥 zchk4

🎀 zchk5

🦋 zchk6

🌸 zchke

🧚 zmake

👑 zmvch

🌈 zregr1