BLAS/TESTING/sblat2.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/sblat2.f(3) 🌸

okay bestie, this one's from the Library Functions Manual, and it's all about BLAS/TESTING/sblat2.f 💖 grab a snack, there's a whole roster of functions here and we're going through every single one, no skipping, no cap ✨

✨ NAME ✨

BLAS/TESTING/sblat2.f — that's the whole name, that's the whole vibe 🎀

🦋 SYNOPSIS 🦋

💅 Functions/Subroutines 💅

so this page is basically a guest list for the sblat2 testing party and everyone showed up 😭 let's go down the line, one by one, nobody gets left out 🫶

program sblat2 — SBLAT2. that's it. that's the description the page gives us, she's mysterious, she's the main character 👑
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) — SCHK1, and ngl the arg list is giving whole entire alphabet 💀
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) — SCHK2, same exact arg list as schk1, they're twins fr fr 🧚
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) — SCHK3. note she dropped the alf/alf and bet/bet pairs and picked up xt and z instead, iconic little remix 💅
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) — SCHK4. no nkb/kb, no nbet/bet, but she's got nalf/alf and z 🌈
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) — SCHK5, like literally the same signature as schk4, they're matching outfits 😭
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) — SCHK6, and yes bestie, again the same signature. triplets. ate. 💀
subroutine schke (isnum, srnamt, nout) — SCHKE. short arg list, lowkey refreshing honestly 🍓
subroutine smake (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku, reset, transl) — SMAKE. name's giving "she makes things" and that's all we're told 🔥
subroutine smvch (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, eps, err, fatal, nout, mv) — SMVCH, absolute unit of an arg list, she's booked and busy 👑
logical function lse (ri, rj, lr) — LSE. logical function, so she returns a logical, and the args are ri, rj, lr ✨
logical function lseres (type, uplo, m, n, aa, as, lda) — LSERES, also logical, also returning a logical, also not elaborated on 🙈
real function sbeg (reset) — SBEG, real function, takes reset, returns a real, we move 💜
real function sdiff (x, y) — SDIFF, real function, takes x and y, returns a real 🦋
subroutine chkxer (srnamt, infot, nout, lerr, ok) — CHKXER. yes the name has "xer" in it, no we're not gonna make it weird, it's just CHKXER 😌
subroutine sregr1 (trans, m, n, ly, kl, ku, alpha, a, lda, x, incx, beta, y, incy, ys) — SREGR1, another long-hair arg list, she's serving 🎀
subroutine xerbla (srname, info) — XERBLA, a classic, the one everybody knows by name, and the page says exactly XERBLA and nothing more 🌸

okay real talk — this page is a pure index type situation, every single entry's "description" is literally just its own name in caps. so if you were hoping for deep lore on what SMVCH does, bestie the page said catch me in part 2 😭 what we do have, in full and exactly, is every name, every program/subroutine/logical function/real function keyword, and every single parameter in every signature — and those are copied character for character above, so you can trust them ✅

more of this page coming in part 2, we're literally not done yet 💅

💖 FUNCTION/SUBROUTINE DOCUMENTATION 💖

okay bestie, this is the whole cast of lil helpers and test routines — signatures are kept exactly as they are, no cap, because we do not mess with Fortran names in this house 💅

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

👑 program `sblat2`

program sblat2

SBLAT2 is the main character here, fr fr.

✨ Purpose

Test program for the REAL Level 2 Blas. periodt.

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

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 gorgeous lil page, bestie 💖 — it's from LAPACK Version 3.12.0, BLAS/TESTING/sblat2.f(3), and yes it ate. 💅✨

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

🌸 BLAS/TESTING/sblat2.f(3) 🌸

✨ NAME ✨

🦋 SYNOPSIS 🦋

💅 Functions/Subroutines 💅

💖 FUNCTION/SUBROUTINE DOCUMENTATION 💖

🎀 chkxer

🦋 lse

🌸 lseres

🍓 sbeg

👑 program sblat2

✨ Purpose

💜 Further Details

💖 Author

💅 schk1

🌈 schk2

🧚 schk3

🫶 schk4

⭐ schk5

🍓 schk6

💀 schke

🔥 sdiff

🎀 smake

🌸 smvch

🦋 sregr1

🌟 xerbla