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

📦 version 3.12.0, in opensuse-leap 16.0

🎀 NAME 🎀

/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/BLAS/TESTING/dblat3.f — yes bestie, the whole path is the name, don't @ me, that's just how Doxygen felt that day 💅 (this page is from the Library Functions Manual, fr fr).

✨ SYNOPSIS ✨

🌸 Functions/Subroutines

  • program DBLAT3 — the main character 👑
  • 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 (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 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)
  • 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 (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 (isnum, srnamt, nout)
  • subroutine DMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)
  • 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 (ri, rj, lr)
  • logical function LDERES (type, uplo, m, n, aa, as, lda)
  • double precision function DBEG (reset)
  • double precision function DDIFF (x, y)
  • subroutine CHKXER (srnamt, infot, nout, lerr, ok)
  • subroutine XERBLA (srname, info)

💖 Function/Subroutine Documentation 💖

okay so this is the part where we go one by one, and yes I'm saying the line numbers out loud because they're iconic ✨

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

Definition at line 2785 of file dblat3.f. 🫶

🦋 double precision function DBEG (logical reset)

Definition at line 2720 of file dblat3.f. 🫶

👑 program DBLAT3

DBLAT3. the moment. the legend. 🌟

🌈 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 6 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 20 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.
!>
!> 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)
!>

like, it's giving "1989 called and left a whole test suite" and honestly? we stan 😭💜

🧚 Author

  • Univ. of Tennessee
  • Univ. of California Berkeley
  • Univ. of Colorado Denver
  • NAG Ltd.

Definition at line 81 of file dblat3.f. 🫶

🦋 subroutine DCHK1 (character*6 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 392 of file dblat3.f. 🫶

🦋 subroutine DCHK2 (character*6 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 673 of file dblat3.f. 🫶

🦋 subroutine DCHK3 (character*6 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 943 of file dblat3.f. 🫶

psst — notice DCHK3 has no nbet/bet and no cc/cs. not a typo, that's literally the signature, don't come for me 💀

🦋 subroutine DCHK4 (character*6 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 1248 of file dblat3.f. 🫶

🦋 subroutine DCHK5 (character*6 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 1523 of file dblat3.f. 🫶

bestie look at ab being dimension( 2*nmax*nmax ) and w being dimension( 2*nmax ). double the trouble, double the fun 🍓

🦋 subroutine DCHKE (integer isnum, character*6 srnamt, integer nout)

Definition at line 1837 of file dblat3.f. 🫶

🦋 double precision function DDIFF (double precision x, double precision y)

Definition at line 2766 of file dblat3.f. 🫶

🦋 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 2392 of file dblat3.f. 🫶

🦋 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 2505 of file dblat3.f. 🫶

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

Definition at line 2627 of file dblat3.f. 🫶

🦋 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 2659 of file dblat3.f. 🫶

🦋 subroutine XERBLA (character*6 srname, integer info)

Definition at line 2815 of file dblat3.f. 🫶

💜 Author 💜

Generated automatically by Doxygen for LAPACK from the source code. no thoughts, just vibes and a doc generator doing its little thing 🧚‍♀️✨

okay and the cute sign-off: this whole page is LAPACK, Version 3.12.0, dated /home/abui...G/dblat3.f(3) — slay, go run your Level 3 BLAS tests bestie, you got this 💅🔥🎀

📦 where this page comes from