BLAS/TESTING/sblat3.f(3)

📦 version 3.12.1, in arch rolling

💖 `BLAS/TESTING/sblat3.f` — the sblat3 page, bestie edition 💖

okay so welcome to BLAS/TESTING/sblat3.f, straight out of the LAPACK manual family 🎀 this is literally the test-driver page for the REAL Level 3 BLAS, and it's a whole squad of Fortran subroutines. no cap, it's iconic. let's get into it.

✨ NAME ✨

BLAS/TESTING/sblat3.f

🌸 SYNOPSIS 🌸

Functions/Subroutines — the whole squad 🫶

program sblat3 — SBLAT3 (main character energy, fr)
subroutine schk1 — (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 schk2 — (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 schk3 — (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)
subroutine schk4 — (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 schk5 — (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 schke — (isnum, srnamt, nout)
subroutine smake — (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)
subroutine smmch — (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)
logical function lse — (ri, rj, lr)
logical function lseres — (type, uplo, m, n, aa, as, lda)
real function sbeg — (reset)
real function sdiff — (x, y)
subroutine chkxer — (srnamt, infot, nout, lerr, ok)
subroutine xerbla — (srname, info)
subroutine schk6 — (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 smmtch — (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 🦋

`subroutine chkxer`

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

Definition at line 2871 of file sblat3.f.

`logical function lse`

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

Definition at line 2713 of file sblat3.f.

`logical function 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 2745 of file sblat3.f.

`real function sbeg`

real function sbeg (logical reset)

Definition at line 2806 of file sblat3.f.

`program sblat3`

program sblat3

SBLAT3 👑

💜 Purpose

!> !> Test program for the REAL 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, the last 7 records !> are read using the format ( A7, L2 ). An annotated example of a data !> file can be obtained by deleting the first 3 characters from the !> following 20 lines: !> 'sblat3.out' NAME OF SUMMARY OUTPUT FILE !> 6 UNIT NUMBER OF SUMMARY FILE !> 'SBLAT3.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 1.0 0.7 VALUES OF ALPHA !> 3 NUMBER OF VALUES OF BETA !> 0.0 1.0 1.3 VALUES OF BETA !> SGEMM T PUT F FOR NO TEST. SAME COLUMNS. !> SSYMM T PUT F FOR NO TEST. SAME COLUMNS. !> STRMM T PUT F FOR NO TEST. SAME COLUMNS. !> STRSM T PUT F FOR NO TEST. SAME COLUMNS. !> SSYRK T PUT F FOR NO TEST. SAME COLUMNS. !> SSYR2K T PUT F FOR NO TEST. SAME COLUMNS. !> SGEMMTR 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 82 of file sblat3.f.

`subroutine schk1`

subroutine schk1 (character*7 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 nbet, real, dimension( nbet ) bet, integer nmax, real,
    dimension( nmax, nmax ) a, real, dimension( nmax*nmax ) aa, real,
    dimension( nmax*nmax ) as, real, dimension( nmax, nmax ) b, real,
    dimension( nmax*nmax ) bb, real, dimension( nmax*nmax ) bs, real,
    dimension( nmax, nmax ) c, real, dimension( nmax*nmax ) cc, real,
    dimension( nmax*nmax ) cs, real, dimension( nmax ) ct, real, dimension(
    nmax ) g)

Definition at line 399 of file sblat3.f.

`subroutine schk2`

subroutine schk2 (character*7 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 nbet, real, dimension( nbet ) bet, integer nmax, real,
    dimension( nmax, nmax ) a, real, dimension( nmax*nmax ) aa, real,
    dimension( nmax*nmax ) as, real, dimension( nmax, nmax ) b, real,
    dimension( nmax*nmax ) bb, real, dimension( nmax*nmax ) bs, real,
    dimension( nmax, nmax ) c, real, dimension( nmax*nmax ) cc, real,
    dimension( nmax*nmax ) cs, real, dimension( nmax ) ct, real, dimension(
    nmax ) g)

Definition at line 680 of file sblat3.f.

`subroutine schk3`

subroutine schk3 (character*7 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 nmax, real, dimension( nmax, nmax ) a, real, dimension(
    nmax*nmax ) aa, real, dimension( nmax*nmax ) as, real, dimension( nmax,
    nmax ) b, real, dimension( nmax*nmax ) bb, real, dimension( nmax*nmax )
    bs, real, dimension( nmax ) ct, real, dimension( nmax ) g, real,
    dimension( nmax, nmax ) c)

Definition at line 950 of file sblat3.f.

`subroutine schk4`

subroutine schk4 (character*7 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 nbet, real, dimension( nbet ) bet, integer nmax, real,
    dimension( nmax, nmax ) a, real, dimension( nmax*nmax ) aa, real,
    dimension( nmax*nmax ) as, real, dimension( nmax, nmax ) b, real,
    dimension( nmax*nmax ) bb, real, dimension( nmax*nmax ) bs, real,
    dimension( nmax, nmax ) c, real, dimension( nmax*nmax ) cc, real,
    dimension( nmax*nmax ) cs, real, dimension( nmax ) ct, real, dimension(
    nmax ) g)

Definition at line 1255 of file sblat3.f.

`subroutine schk5`

subroutine schk5 (character*7 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 nbet, real, dimension( nbet ) bet, integer nmax, real,
    dimension( 2*nmax*nmax ) ab, real, dimension( nmax*nmax ) aa, real,
    dimension( nmax*nmax ) as, real, dimension( nmax*nmax ) bb, real,
    dimension( nmax*nmax ) bs, real, dimension( nmax, nmax ) c, real,
    dimension( nmax*nmax ) cc, real, dimension( nmax*nmax ) cs, real,
    dimension( nmax ) ct, real, dimension( nmax ) g, real, dimension( 2*nmax
    ) w)

Definition at line 1530 of file sblat3.f.

`subroutine schk6`

subroutine schk6 (character*7 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 nbet, real, dimension( nbet ) bet, integer nmax, real,
    dimension( nmax, nmax ) a, real, dimension( nmax*nmax ) aa, real,
    dimension( nmax*nmax ) as, real, dimension( nmax, nmax ) b, real,
    dimension( nmax*nmax ) bb, real, dimension( nmax*nmax ) bs, real,
    dimension( nmax, nmax ) c, real, dimension( nmax*nmax ) cc, real,
    dimension( nmax*nmax ) cs, real, dimension( nmax ) ct, real, dimension(
    nmax ) g)

Definition at line 2958 of file sblat3.f.

`subroutine schke`

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

Definition at line 1844 of file sblat3.f.

`real function sdiff`

real function sdiff (real x, real y)

Definition at line 2852 of file sblat3.f.

`subroutine 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, logical reset, real transl)

Definition at line 2478 of file sblat3.f.

`subroutine smmch`

subroutine smmch (character*1 transa, character*1 transb, integer m, integer
    n, integer kk, real alpha, real, dimension( lda, * ) a, integer lda,
    real, dimension( ldb, * ) b, integer ldb, real beta, real, dimension(
    ldc, * ) c, integer ldc, real, dimension( * ) ct, real, dimension( * )
    g, real, dimension( ldcc, * ) cc, integer ldcc, real eps, real err,
    logical fatal, integer nout, logical mv)

Definition at line 2591 of file sblat3.f.

`subroutine smmtch`

subroutine smmtch (character*1 uplo, character*1 transa, character*1 transb,
    integer n, integer kk, real alpha, real, dimension( lda, * ) a, integer
    lda, real, dimension( ldb, * ) b, integer ldb, real beta, real,
    dimension( ldc, * ) c, integer ldc, real, dimension( * ) ct, real,
    dimension( * ) g, real, dimension( ldcc, * ) cc, integer ldcc, real eps,
    real err, logical fatal, integer nout, logical mv)

Definition at line 3243 of file sblat3.f.

`subroutine xerbla`

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

Definition at line 2901 of file sblat3.f.

🌈 Author 🌈

Generated automatically by Doxygen for LAPACK from the source code.

ok that's the whole page bestie, every subroutine, every dimension, every line number accounted for 💅 go forth and test your REAL Level 3 BLAS, no cap 🫶

🧚 LAPACK, Version 3.12.0 — BLAS/TESTING/sblat3.f(3) — mwah, see u in the next manpage 💖✨

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

💖 BLAS/TESTING/sblat3.f — the sblat3 page, bestie edition 💖

✨ NAME ✨

🌸 SYNOPSIS 🌸

Functions/Subroutines — the whole squad 🫶

🦋 Function/Subroutine Documentation 🦋

subroutine chkxer

logical function lse

logical function lseres

real function sbeg

program sblat3

💜 Purpose

Author

subroutine schk1

subroutine schk2

subroutine schk3

subroutine schk4

subroutine schk5

subroutine schk6

subroutine schke

real function sdiff

subroutine smake

subroutine smmch

subroutine smmtch

subroutine xerbla