BLAS/TESTING/dblat3.f(3)

📦 version 3.12.1, in arch rolling

🌸 NAME 🌸

okay bestie, manual name check: BLAS/TESTING/dblat3.f(3) — and yes, it's from the Library Functions Manual 💅. The NAME entry is literally just BLAS/TESTING/dblat3.f. That's the whole name, no cap. 🎀

✨ SYNOPSIS ✨

💖 Functions/Subroutines 💖

okay so this synopsis is giving full cast list, and every single function/subroutine below is here with its exact signature. Keep the Fortran friend group intact, periodt. 🦋

  • program dblat3 — the main program, and the description line underneath it is DBLAT3.
program dblat3
  • subroutine dchk1 — signature exactly:
subroutine dchk1 (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 dchk2 — signature exactly:
subroutine dchk2 (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 dchk3 — signature exactly:
subroutine dchk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal,
           nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)
  • subroutine dchk4 — signature exactly:
subroutine dchk4 (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 dchk5 — signature exactly:
subroutine dchk5 (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 dchke — signature exactly:
subroutine dchke (isnum, srnamt, nout)
  • subroutine dmake — signature exactly:
subroutine dmake (type, uplo, diag, m, n, a, nmax, aa, lda, reset,
           transl)
  • subroutine dmmch — signature exactly:
subroutine dmmch (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta,
           c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)
  • logical function lde — signature exactly:
logical function lde (ri, rj, lr)
  • logical function lderes — signature exactly:
logical function lderes (type, uplo, m, n, aa, as, lda)
  • double precision function dbeg — signature exactly:
double precision function dbeg (reset)
  • double precision function ddiff — signature exactly:
double precision function ddiff (x, y)
  • subroutine chkxer — signature exactly:
subroutine chkxer (srnamt, infot, nout, lerr, ok)
  • subroutine xerbla — signature exactly:
subroutine xerbla (srname, info)
  • subroutine dchk6 — signature exactly:
subroutine dchk6 (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 dmmtch — signature exactly:
subroutine dmmtch (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 ✨

okay bestie, this is the good part — every single subroutine and function in the file, in alphabetical order, with its exact signature and the line it lives on. no skipping, no "etc." 💅

🫶 chkxer

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

Definition at line 2871 of file dblat3.f.

the error-exit checker bestie. seven-char routine name, an infot, a unit number nout, and the two logicals lerr and ok. iconic little guy. ✨

🫶 dbeg

double precision function dbeg (logical reset)

Definition at line 2806 of file dblat3.f.

returns a double precision, takes one logical reset. that's it, that's the whole vibe. 🎀

👑 dblat3

program dblat3

DBLAT3

💖 Purpose

!> !> Test program for the DOUBLE PRECISION 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 ( A6, L2 ). An annotated example of a data !> file can be obtained by deleting the first 3 characters from the !> following 21 lines:

!> 'dblat3.out'      NAME OF SUMMARY OUTPUT FILE
!> 6                 UNIT NUMBER OF SUMMARY FILE
!> 'DBLAT3.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
!> DGEMM   T PUT F FOR NO TEST. SAME COLUMNS.
!> DSYMM   T PUT F FOR NO TEST. SAME COLUMNS.
!> DTRMM   T PUT F FOR NO TEST. SAME COLUMNS.
!> DTRSM   T PUT F FOR NO TEST. SAME COLUMNS.
!> DSYRK   T PUT F FOR NO TEST. SAME COLUMNS.
!> DSYR2K  T PUT F FOR NO TEST. SAME COLUMNS.
!> DGEMMTR T PUT F FOR NO TEST. SAME COLUMNS.
ngl the !> prefixes are literally part of the page, bestie — that's the "first 3 characters" being referenced. delete those three and you've got yourself a data file. 🧚

!> !> 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 dblat3.f.

🦋 dchk1

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

Definition at line 399 of file dblat3.f.

checker number one, and yes she did bring the whole a, aa, as, b, bb, bs, c, cc, cs, ct, g entourage. main character energy fr fr. 💖

🦋 dchk2

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

Definition at line 680 of file dblat3.f.

same cast of arguments as dchk1, different home address. slay. ✨

🦋 dchk3

subroutine dchk3 (character*7 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,
    double precision, dimension( nalf ) alf, integer nmax, double precision,
    dimension( nmax, nmax ) a, double precision, dimension( nmax*nmax ) aa,
    double precision, dimension( nmax*nmax ) as, double precision, dimension(
    nmax, nmax ) b, double precision, dimension( nmax*nmax ) bb, double
    precision, dimension( nmax*nmax ) bs, double precision, dimension( nmax )
    ct, double precision, dimension( nmax ) g, double precision, dimension(
    nmax, nmax ) c)

Definition at line 950 of file dblat3.f.

not me noticing there's no nbet/bet here, and c moved to the very back of the queue. she's got her own thing going on and we respect it. 🫶

🦋 dchk4

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

Definition at line 1255 of file dblat3.f.

full entourage again. the bet is back, we love a comeback. 🎀

🦋 dchk5

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

Definition at line 1530 of file dblat3.f.

okay she's DIFFERENT. no plain a or b here — instead it's ab sized 2*nmax*nmax, plus bb, bs, and a whole extra w of 2*nmax. double-wide packing icon. also no a/b/aa... wait, aa and as are there. anyway. obsessed. 🔥

🦋 dchk6

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

Definition at line 2957 of file dblat3.f.

identical argument list to dchk1/dchk2/dchk4 — but she lives way down at line 2957. late to the party, still iconic. 💀

🍓 dchke

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

Definition at line 1844 of file dblat3.f.

tiny lil three-arg queen — isnum, srnamt, nout. lowkey the most efficient signature on the whole page. 👑

🍓 ddiff

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

Definition at line 2852 of file dblat3.f.

gives you back a double precision, wants x and y. a whole function. we stan. 💜

🌈 dmake

subroutine dmake (character*2 type, character*1 uplo, character*1 diag,
    integer m, integer n, double precision, dimension( nmax, * ) a, integer
    nmax, double precision, dimension( * ) aa, integer lda, logical reset,
    double precision transl)

Definition at line 2478 of file dblat3.f.

note the dimension( nmax, * ) up there and then integer nmax appearing after it as an actual argument — copy it exactly as it is, bestie, do not "fix" it, that's not our job. 🙈

🌈 dmmch

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

Definition at line 2591 of file dblat3.f.

transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv. count 'em. that's a whole friend group. ✨

🌈 dmmtch

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

Definition at line 3242 of file dblat3.f.

the highest line number on this entire page btw — 3242 — and she earns it. same energy as dmmch but with uplo leading the parade and no m, plus a * in that ldb dimension. 💅

⭐ lde

logical function lde (double precision, dimension( * ) ri, double precision,
    dimension( * ) rj, integer lr)

Definition at line 2713 of file dblat3.f.

returns logical, takes two unnamed double precision array args (ri, rj) plus lr. yes the first argument is literally just a type declaration with no name. no cap. 🧚

⭐ lderes

logical function lderes (character*2 type, character*1 uplo, integer m,
    integer n, double precision, dimension( lda, * ) aa, double precision,
    dimension( lda, * ) as, integer lda)

Definition at line 2745 of file dblat3.f.

logical return, type (two chars), uplo (one char), m, n, aa, as, lda. both arrays share the same lda. 🎀

⭐ xerbla

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

Definition at line 2901 of file dblat3.f.

the classic. srname and info. you already know her. 💖

🌸 Author

Generated automatically by Doxygen for LAPACK from the source code.

and that's a wrap on BLAS/TESTING/dblat3.f(3) bestie!! 🎀✨ this page is from LAPACK Version 3.12.0 — go drink some water and go test your Level 3 BLAS, you've earned it 🫶💜🦋

📦 where this page comes from