BLAS/TESTING/zblat3.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

💖 BLAS/TESTING/zblat3.f(3) 💖

okay so bestie, welcome to the Library Functions Manual page for BLAS/TESTING/zblat3.f(3) — yes, the whole path is the name, we are not shortening it, and we are keeping every single signature exactly as written. No cap, no edits, just the full cast list. 💅

🌸 NAME 🌸

BLAS/TESTING/zblat3.f — that's the name, periodt. 🎀

✨ SYNOPSIS ✨

🫶 Functions/Subroutines 🫶

program zblat3 — the main program, obviously main character energy 👑. It carries the label ZBLAT3.
subroutine zchk1 — check number one, stepping in with this exact signature:

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)

subroutine zchk2 — check number two, same signature energy, no skips:

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)

subroutine zchk3 — check number three, and yes bestie, this arg list is its own thing:

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

subroutine zchk4 — check number four, back with the full roster:

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)

subroutine zchk5 — check number five, extra args, extra vibes, ab and w are literally right there:

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)

subroutine zchke — the zchke subroutine, serving (isnum, srnamt, nout) exactly:

subroutine zchke (isnum, srnamt, nout)

subroutine zmake — the zmake subroutine, with transl at the end, iconic:

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

subroutine zmmch — the zmmch subroutine, long arg list, every name intact:

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 — a logical function, no cap:

logical function lze (ri, rj, lr)

logical function lzeres — another logical function, same exact spelling:

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

complex *16 function zbeg — yes, complex *16, bestie, keep the space 🫶:

complex *16 function zbeg (reset)

double precision function ddiff — double precision function, exactly this:

double precision function ddiff (x, y)

subroutine chkxer — the chkxer subroutine, all five args present:

subroutine chkxer (srnamt, infot, nout, lerr, ok)

subroutine xerbla — the xerbla subroutine, clean and simple:

subroutine xerbla (srname, info)

subroutine zchk6 — check number six, full arg-list moment:

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)

subroutine zmmtch — the zmmtch subroutine, wrapping the roster with every arg intact 💜:

subroutine zmmtch (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 💖

okay bestie, here’s the whole cast of helper routines exactly as this page lists them. Some entries are just signature + line number in the source — no extra lore, no invented behavior, we’re keeping it factual and cute. 🫶

🎀 `chkxer`

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

Definition at line 3619 of file zblat3.f.

🎀 `ddiff`

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

Definition at line 3600 of file zblat3.f.

🎀 `lze`

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

Definition at line 3453 of file 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 3485 of file zblat3.f.

🎀 `xerbla`

subroutine xerbla (character*(*) srname, integer info)

Definition at line 3649 of file zblat3.f.

🎀 `zbeg`

complex*16 function zbeg (logical reset)

Definition at line 3546 of file zblat3.f.

👑 `zblat3`

program zblat3

ZBLAT3

✨ Purpose ✨

This is the test program for the COMPLEX*16 Level 3 Blas. 💅

The program must be driven by a short data file. The first 14 records of the file are read using list-directed input, and the last 10 records are read using the format ( A6, L2 ). An annotated example of a data file can be obtained by deleting the first 3 characters from the following 23 lines:

!> 'zblat3.out'      NAME OF SUMMARY OUTPUT FILE
!> 6                 UNIT NUMBER OF SUMMARY FILE
!> 'ZBLAT3.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
!> 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
!> ZGEMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHEMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZSYMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTRMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTRSM  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHERK  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZSYRK  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHER2K T PUT F FOR NO TEST. SAME COLUMNS.
!> ZSYR2K T PUT F FOR NO TEST. SAME COLUMNS.
!> ZGEMMTR T PUT F FOR NO TEST. SAME COLUMNS.

🌈 Further Details 🌈

See:

Dongarra J. J., Du Croz J. J., Duff I. S. and Hammarling S. A Set of Level 3 Basic Linear Algebra Subprograms.
Technical Memorandum No.88 (Revision 1), Mathematics and Computer Science Division, Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439, US.

Written on 8-February-1989.

Jack Dongarra, Argonne National Laboratory.
Iain Duff, AERE Harwell.
Jeremy Du Croz, Numerical Algorithms Group Ltd.
Sven Hammarling, Numerical Algorithms Group Ltd.

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 86 of file zblat3.f.

🎀 `zchk1`

subroutine zchk1 (character*7 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)

Definition at line 413 of file zblat3.f.

🎀 `zchk2`

subroutine zchk2 (character*7 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)

Definition at line 698 of file zblat3.f.

🎀 `zchk3`

subroutine zchk3 (character*7 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)

Definition at line 977 of file zblat3.f.

🎀 `zchk4`

subroutine zchk4 (character*7 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)

Definition at line 1288 of file zblat3.f.

🎀 `zchk5`

subroutine zchk5 (character*7 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)

Definition at line 1620 of file zblat3.f.

🎀 `zchk6`

subroutine zchk6 (character*7 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)

Definition at line 3707 of file zblat3.f.

🎀 `zchke`

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

Definition at line 1994 of file 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 3134 of file 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 3263 of file 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 3997 of file zblat3.f.

🌸 Author 🌸

Generated automatically by Doxygen for LAPACK from the source code.

💖 Footer sign-off tea: LAPACK, version 3.12.0, source page BLAS/TESTING/zblat3.f(3) — that’s the source/version/date footer handled, bestie. 🫶

📦 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/zblat3.f(3)

💖 BLAS/TESTING/zblat3.f(3) 💖

🌸 NAME 🌸

✨ SYNOPSIS ✨

🫶 Functions/Subroutines 🫶

💖 Function/Subroutine Documentation 💖

🎀 chkxer

🎀 ddiff

🎀 lze

🎀 lzeres

🎀 xerbla

🎀 zbeg

👑 zblat3

✨ Purpose ✨

🌈 Further Details 🌈

🌸 Author 🌸

🎀 zchk1

🎀 zchk2

🎀 zchk3

🎀 zchk4

🎀 zchk5

🎀 zchk6

🎀 zchke

🎀 zmake

🎀 zmmch

🎀 zmmtch

🌸 Author 🌸

🎀 `chkxer`

🎀 `ddiff`

🎀 `lze`

🎀 `lzeres`

🎀 `xerbla`

🎀 `zbeg`

👑 `zblat3`

🎀 `zchk1`

🎀 `zchk2`

🎀 `zchk3`

🎀 `zchk4`

🎀 `zchk5`

🎀 `zchk6`

🎀 `zchke`

🎀 `zmake`

🎀 `zmmch`

🎀 `zmmtch`