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

📦 version 3.12.0, in opensuse-leap 16.0

🌸 NAME 🌸

okay so bestie, cblat3.f is the whole file path situation:

/home/abuild/rpmbuild/BUILD/lapack-static-3.12.0-build/lapack-3.12.0/BLAS/TESTING/cblat3.f

and this page lives in the Library Functions Manual, fr fr 💅

✨ SYNOPSIS ✨

🎀 Functions/Subroutines

  • program CBLAT3 — literally the main character, CBLAT3 herself 👑
  • subroutine CCHK1 (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 CCHK2 (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 CCHK3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)
  • subroutine CCHK4 (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 CCHK5 (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 CCHKE (isnum, srnamt, nout)
  • subroutine CMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)
  • subroutine CMMCH (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)
  • logical function LCE (ri, rj, lr)
  • logical function LCERES (type, uplo, m, n, aa, as, lda)
  • complex function CBEG (reset)
  • real function SDIFF (x, y)
  • subroutine CHKXER (srnamt, infot, nout, lerr, ok)
  • subroutine XERBLA (srname, info)

🦋 Function/Subroutine Documentation 🦋

🧚 complex function CBEG (logical reset)

ok so CBEG takes a logical reset and hands you back a complex. that's the whole vibe ✨

Definition at line 3331 of file cblat3.f.

👑 program CBLAT3

CBLAT3 — she's the program, she's the moment, she's literally the whole point 💖

💜 Purpose:

!>
!> Test program for the COMPLEX          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 9 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 23 lines:
!> 'cblat3.out'      NAME OF SUMMARY OUTPUT FILE
!> 6                 UNIT NUMBER OF SUMMARY FILE
!> 'CBLAT3.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,0.0) (1.0,0.0) (0.7,-0.9)       VALUES OF ALPHA
!> 3                 NUMBER OF VALUES OF BETA
!> (0.0,0.0) (1.0,0.0) (1.3,-1.1)       VALUES OF BETA
!> CGEMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHEMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> CSYMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTRMM  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTRSM  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHERK  T PUT F FOR NO TEST. SAME COLUMNS.
!> CSYRK  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHER2K T PUT F FOR NO TEST. SAME COLUMNS.
!> CSYR2K 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)
!>
bestie, real talk: the first 14 records are list-directed, the last 9 are ( A6, L2 ), and you get that annotated example by deleting the first 3 characters from those 23 lines. that's the whole recipe, no cap 🫶

💖 Author

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

Definition at line 84 of file cblat3.f.

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

Definition at line 402 of file cblat3.f.

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

Definition at line 687 of file cblat3.f.

🍓 subroutine CCHK3 (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, complex, dimension( nalf ) alf, integer nmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmax*nmax ) aa, complex, dimension( nmax*nmax ) as, complex, dimension( nmax, nmax ) b, complex, dimension( nmax*nmax ) bb, complex, dimension( nmax*nmax ) bs, complex, dimension( nmax ) ct, real, dimension( nmax ) g, complex, dimension( nmax, nmax ) c)

she's the odd one out — no nbet/bet, and c shows up at the end instead. iconic behavior, honestly 💅

Definition at line 966 of file cblat3.f.

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

Definition at line 1276 of file cblat3.f.

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

not the ab being dimension( 2*nmax*nmax ) and w being dimension( 2*nmax ) — she brought extra luggage, and honestly? respect 😭

Definition at line 1608 of file cblat3.f.

⭐ subroutine CCHKE (integer isnum, character*6 srnamt, integer nout)

Definition at line 1981 of file cblat3.f.

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

Definition at line 3404 of file cblat3.f.

🔥 subroutine CMAKE (character*2 type, character*1 uplo, character*1 diag, integer m, integer n, complex, dimension( nmax, * ) a, integer nmax, complex, dimension( * ) aa, integer lda, logical reset, complex transl)

Definition at line 2922 of file cblat3.f.

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

Definition at line 3050 of file cblat3.f.

🧚 logical function LCE (complex, dimension( * ) ri, complex, dimension( * ) rj, integer lr)

Definition at line 3238 of file cblat3.f.

🫶 logical function LCERES (character*2 type, character*1 uplo, integer m, integer n, complex, dimension( lda, * ) aa, complex, dimension( lda, * ) as, integer lda)

Definition at line 3270 of file cblat3.f.

💀 real function SDIFF (real x, real y)

Definition at line 3385 of file cblat3.f.

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

Definition at line 3434 of file cblat3.f.

👑 Author 👑

Generated automatically by Doxygen for LAPACK from the source code.

LAPACK — Version 3.12.0 💖 that's the tea, bestie, hope this helped, slay and stay Fortran-pilled ✨🎀🦋 (page ref: /home/abui...G/cblat3.f(3))

📦 where this page comes from