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

💅 NAME 💅

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

okay so bestie, quick note before we get into it — this whole page is from the Library Functions Manual, and the file we're stanning here is that sblat2.f up there. it's the real-deal path, like the whole entire build path, so don't @ me about the length. copy it exactly if you need it, no cap 💖

✨ SYNOPSIS ✨

🫶 Functions/Subroutines 🫶

this is the friend group, okay? every single one of them, listed in order, signatures preserved character-for-character because I would never mess with the source:

program SBLAT2 — the main character of this whole file fr. signature:

program SBLAT2
    SBLAT2

subroutine SCHK1 — bestie check number one, and the way that arg list goes on — look at all those params:

subroutine SCHK1 (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 SCHK2 — check number two, same exact energy, same exact args:

subroutine SCHK2 (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 SCHK3 — third one, and lowkey she's different — no nbet/bet, but she brought xt and z to the party instead:

subroutine SCHK3 (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 SCHK4 — check four, highkey busy, got the alf crowd and z hanging out at the end:

subroutine SCHK4 (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 SCHK5 — five, twin of SCHK4, same args, different vibe entirely (trust):

subroutine SCHK5 (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 SCHK6 — and six, rounding out the trio of SCHK4/SCHK5/SCHK6 clones like the icon she is:

subroutine SCHK6 (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 SCHKE — the little error helper, short and sweet, only three args, she don't need more:

subroutine SCHKE (isnum, srnamt, nout)

subroutine SMAKE — the maker, literally, she builds the things. type, uplo, diag, oh my:

subroutine SMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku,
    reset, transl)

subroutine SMVCH — the checker-checker, this one does the actual mathy vibes check with alpha, beta, err, fatal, nout, mv — a whole meal:

subroutine SMVCH (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy,
    yt, g, yy, eps, err, fatal, nout, mv)

logical function LSE — ooh a logical function, returning truth bestie. three args, no notes:

logical function LSE (ri, rj, lr)

logical function LSERES — the logical-est of the res checks, type, uplo, m, n, aa, as, lda, all of it:

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

real function SBEG — real function era 🔥 takes a single reset and that's it:

real function SBEG (reset)

real function SDIFF — diff check, x vs y, two args, iconic behaviour:

real function SDIFF (x, y)

subroutine CHKXER — the error-checker's error-checker, srnamt, infot, nout, lerr, ok — say that five times fast:

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

subroutine SREGR1 — regression guardian, holding it DOWN with ly, kl, ku, alpha, lda, incx, incy, ys:

subroutine SREGR1 (trans, m, n, ly, kl, ku, alpha, a, lda, x, incx,
    beta, y, incy, ys)

subroutine XERBLA — the legend. the blueprint. the one who yells when something's wrong. only srname and info, and she does the most with it:

subroutine XERBLA (srname, info)

and that's just the lineup bestie, there's more where that came from — 🦋 stay tuned 🦋

✨ FUNCTION/SUBROUTINE DOCUMENTATION ✨

okay bestie, this is the whole cast list for sblat2.f — every signature, every “Definition at line …” receipt, no skips, no cap 💅

`CHKXER` 🎀

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

Definition at line 3120 of file sblat2.f.

`LSE` 🌸

logical function LSE (real, dimension( * ) ri, real, dimension( * ) rj,
    integer lr)

Definition at line 2969 of file sblat2.f.

`LSERES` 🦋

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

Definition at line 2999 of file sblat2.f.

`SBEG` ⭐

real function SBEG (logical reset)

Definition at line 3058 of file sblat2.f.

`SBLAT2` 👑

program SBLAT2

Purpose

okay so this is the test program for the REAL Level 2 Blas 💖

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

'sblat2.out'      NAME OF SUMMARY OUTPUT FILE
6                 UNIT NUMBER OF SUMMARY FILE
'SBLAT2.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 1.0 0.7       VALUES OF ALPHA
3                 NUMBER OF VALUES OF BETA
0.0 1.0 0.9       VALUES OF BETA
SGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
SGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
SSYMV  T PUT F FOR NO TEST. SAME COLUMNS.
SSBMV  T PUT F FOR NO TEST. SAME COLUMNS.
SSPMV  T PUT F FOR NO TEST. SAME COLUMNS.
STRMV  T PUT F FOR NO TEST. SAME COLUMNS.
STBMV  T PUT F FOR NO TEST. SAME COLUMNS.
STPMV  T PUT F FOR NO TEST. SAME COLUMNS.
STRSV  T PUT F FOR NO TEST. SAME COLUMNS.
STBSV  T PUT F FOR NO TEST. SAME COLUMNS.
STPSV  T PUT F FOR NO TEST. SAME COLUMNS.
SGER   T PUT F FOR NO TEST. SAME COLUMNS.
SSYR   T PUT F FOR NO TEST. SAME COLUMNS.
SSPR   T PUT F FOR NO TEST. SAME COLUMNS.
SSYR2  T PUT F FOR NO TEST. SAME COLUMNS.
SSPR2  T PUT F FOR NO TEST. SAME COLUMNS.

Further Details

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 101 of file sblat2.f.

`SCHK1` 💜

subroutine SCHK1 (character*6 sname, real eps, real 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, real, dimension( nalf ) alf, integer nbet, real,
    dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc,
    integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real,
    dimension( nmax*nmax ) aa, real, dimension( nmax*nmax ) as, real,
    dimension( nmax ) x, real, dimension( nmax*incmax ) xx, real, dimension(
    nmax*incmax ) xs, real, dimension( nmax ) y, real, dimension(
    nmax*incmax ) yy, real, dimension( nmax*incmax ) ys, real, dimension(
    nmax ) yt, real, dimension( nmax ) g)

Definition at line 427 of file sblat2.f.

`SCHK2` 🍓

subroutine SCHK2 (character*6 sname, real eps, real 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, real, dimension( nalf ) alf, integer nbet, real,
    dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc,
    integer nmax, integer incmax, real, dimension( nmax, nmax ) a, real,
    dimension( nmax*nmax ) aa, real, dimension( nmax*nmax ) as, real,
    dimension( nmax ) x, real, dimension( nmax*incmax ) xx, real, dimension(
    nmax*incmax ) xs, real, dimension( nmax ) y, real, dimension(
    nmax*incmax ) yy, real, dimension( nmax*incmax ) ys, real, dimension(
    nmax ) yt, real, dimension( nmax ) g)

Definition at line 796 of file sblat2.f.

`SCHK3` 🧚

subroutine SCHK3 (character*6 sname, real eps, real 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, real, dimension( nmax, nmax ) a, real, dimension( nmax*nmax )
    aa, real, dimension( nmax*nmax ) as, real, dimension( nmax ) x, real,
    dimension( nmax*incmax ) xx, real, dimension( nmax*incmax ) xs, real,
    dimension( nmax ) xt, real, dimension( nmax ) g, real, dimension( nmax )
    z)

Definition at line 1139 of file sblat2.f.

`SCHK4` 🌈

subroutine SCHK4 (character*6 sname, real eps, real thresh, integer nout,
    integer ntra, logical trace, logical rewi, logical fatal, integer nidim,
    integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf )
    alf, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer
    incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax*nmax )
    aa, real, dimension( nmax*nmax ) as, real, dimension( nmax ) x, real,
    dimension( nmax*incmax ) xx, real, dimension( nmax*incmax ) xs, real,
    dimension( nmax ) y, real, dimension( nmax*incmax ) yy, real, dimension(
    nmax*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g,
    real, dimension( nmax ) z)

Definition at line 1496 of file sblat2.f.

`SCHK5` 🔥

subroutine SCHK5 (character*6 sname, real eps, real thresh, integer nout,
    integer ntra, logical trace, logical rewi, logical fatal, integer nidim,
    integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf )
    alf, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer
    incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax*nmax )
    aa, real, dimension( nmax*nmax ) as, real, dimension( nmax ) x, real,
    dimension( nmax*incmax ) xx, real, dimension( nmax*incmax ) xs, real,
    dimension( nmax ) y, real, dimension( nmax*incmax ) yy, real, dimension(
    nmax*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g,
    real, dimension( nmax ) z)

Definition at line 1757 of file sblat2.f.

`SCHK6` 🫶

subroutine SCHK6 (character*6 sname, real eps, real thresh, integer nout,
    integer ntra, logical trace, logical rewi, logical fatal, integer nidim,
    integer, dimension( nidim ) idim, integer nalf, real, dimension( nalf )
    alf, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer
    incmax, real, dimension( nmax, nmax ) a, real, dimension( nmax*nmax )
    aa, real, dimension( nmax*nmax ) as, real, dimension( nmax ) x, real,
    dimension( nmax*incmax ) xx, real, dimension( nmax*incmax ) xs, real,
    dimension( nmax ) y, real, dimension( nmax*incmax ) yy, real, dimension(
    nmax*incmax ) ys, real, dimension( nmax ) yt, real, dimension( nmax ) g,
    real, dimension( nmax, 2 ) z)

Definition at line 2035 of file sblat2.f.

`SCHKE` 💀

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

Definition at line 2350 of file sblat2.f.

`SDIFF` ✨

real function SDIFF (real x, real y)

Definition at line 3104 of file sblat2.f.

`SMAKE` 🎀

subroutine SMAKE (character*2 type, character*1 uplo, character*1 diag,
    integer m, integer n, real, dimension( nmax, * ) a, integer nmax, real,
    dimension( * ) aa, integer lda, integer kl, integer ku, logical reset,
    real transl)

Definition at line 2676 of file sblat2.f.

`SMVCH` 🌸

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

Definition at line 2852 of file sblat2.f.

`SREGR1` 🦋

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

Definition at line 3148 of file sblat2.f.

`XERBLA` 💅

subroutine XERBLA (character*6 srname, integer info)

Definition at line 3181 of file sblat2.f.

✨ AUTHOR ✨

Generated automatically by Doxygen for LAPACK from the source code.

and that’s the whole page, bestie 🫶 the footer energy is LAPACK Version 3.12.0 coming from /home/abui...G/sblat2.f(3) — iconic, no notes 💖💅

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

💅 NAME 💅

✨ SYNOPSIS ✨

🫶 Functions/Subroutines 🫶

✨ FUNCTION/SUBROUTINE DOCUMENTATION ✨

CHKXER 🎀

LSE 🌸

LSERES 🦋

SBEG ⭐

SBLAT2 👑

Purpose

Author

SCHK1 💜

SCHK2 🍓

SCHK3 🧚

SCHK4 🌈

SCHK5 🔥

SCHK6 🫶

SCHKE 💀

SDIFF ✨

SMAKE 🎀

SMVCH 🌸

SREGR1 🦋

XERBLA 💅