BLAS/TESTING/sblat3.f(3)

📦
version 3.12.1 · 2 versions
, 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