/home/abui...G/zblat2.f(3)

📦 version 3.12.0, in opensuse-leap 16.0

okay so bestie, this is /home/abui...G/zblat2.f(3). The manual name is Library Functions Manual / /home/abui...G/zblat2.f(3), and the whole thing is living under lapack-static-3.12.0-build / lapack-3.12.0 energy. No cap, we're reading the BLAS testing file page. 🦋

🎀 NAME 🎀

/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/BLAS/TESTING/zblat2.f

That's the whole NAME section, bestie. Just the path. Literally one line and it ate. 💅

✨ SYNOPSIS ✨

🌸 Functions/Subroutines 🌸

okay so the original does not give little descriptions for these, so I'm not inventing any. Here is every function and subroutine signature, exactly as written, in one sacred code block. Do not touch the spelling, the spacing, the commas, or the arguments — this is the whole squad and we respect the code. 🫶

       program ZBLAT2
           ZBLAT2
       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)
       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)
       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)
       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)
       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)
       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)
       subroutine ZCHKE (isnum, srnamt, nout)
       subroutine ZMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku,
           reset, transl)
       subroutine ZMVCH (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy,
           yt, g, yy, 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)
       subroutine CHKXER (srnamt, infot, nout, lerr, ok)
       subroutine ZREGR1 (trans, m, n, ly, kl, ku, alpha, a, lda, x, incx,
           beta, y, incy, ys)
       subroutine XERBLA (srname, info)

Every single one from the original is in that block — no skips, no merges, no invented options. The names stay exactly as they are, and the arguments stay exactly where they belong. 🌈

💖 Function/Subroutine Documentation 💖

🧚 `CHKXER`

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

Definition at line 3231 of file zblat2.f.

✨ `DDIFF`

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

Definition at line 3215 of file zblat2.f.

🦋 `LZE`

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

Definition at line 3074 of file zblat2.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 3104 of file zblat2.f.

💅 `XERBLA`

subroutine XERBLA (character*6 srname, integer info)

Definition at line 3292 of file zblat2.f.

🌸 `ZBEG`

complex*16 function ZBEG (logical reset)

Definition at line 3163 of file zblat2.f.

👑 Program `ZBLAT2`

The entry is:

program ZBLAT2

And the name it shows is literally ZBLAT2.

Purpose 💜

It’s the test program for the COMPLEX*16 Level 2 Blas, no cap.

The program must be driven by a short data file. The first 18 records of the file are read using list-directed input, the last 17 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 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 💅

See the receipts:

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.

And the notes are:

-- 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`

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`

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`

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`

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`

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`

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`

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

Definition at line 2406 of file zblat2.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, integer kl, integer ku,
    logical reset, complex*16 transl)

Definition at line 2749 of file zblat2.f.

💖 `ZMVCH`

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`

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 💖 footer energy is LAPACK Version 3.12.0 and /home/abui...G/zblat2.f(3) — now go forth and vibe-check those COMPLEX*16 Level 2 Blas tests 🫶💅

📦 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

/home/abui...G/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