--- name: "zblat3.f" section: "3" platform: "linux" package: "lapack-doc" version: "3.12.1-2" release: "Arch Linux 2026-11-01" platforms: ["linux"] url: "https://new.carta.tech/zblat3.f" --- # zblat3.f(3) ## NAME BLAS/TESTING/zblat3.f ## SYNOPSIS ### Functions/Subroutines program **zblat3**\ **ZBLAT3** subroutine **zchk1** (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 **zchk2** (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 **zchk3** (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)\ subroutine **zchk4** (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 **zchk5** (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 **zchke** (isnum, srnamt, nout)\ subroutine **zmake** (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)\ subroutine **zmmch** (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)\ logical function **lze** (ri, rj, lr)\ logical function **lzeres** (type, uplo, m, n, aa, as, lda)\ complex \*16 function **zbeg** (reset)\ double precision function **ddiff** (x, y)\ subroutine **chkxer** (srnamt, infot, nout, lerr, ok)\ subroutine **xerbla** (srname, info)\ subroutine **zchk6** (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 **zmmtch** (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 (character\*7 srnamt, integer infot, integer nout, logical lerr, logical ok) Definition at line **3619** of file **zblat3.f**. ### double precision function ddiff (double precision x, double precision y) Definition at line **3600** of file **zblat3.f**. ### logical function lze (complex\*16, dimension( \* ) ri, complex\*16, dimension( \* ) rj, integer lr) Definition at line **3453** of file **zblat3.f**. ### logical function lzeres (character\*2 type, character\*1 uplo, integer m, integer n, complex\*16, dimension( lda, \* ) aa, complex\*16, dimension( lda, \* ) as, integer lda) Definition at line **3485** of file **zblat3.f**. ### subroutine xerbla (character\*(\*) srname, integer info) Definition at line **3649** of file **zblat3.f**. ### complex\*16 function zbeg (logical reset) Definition at line **3546** of file **zblat3.f**. ### program zblat3 **ZBLAT3** **Purpose:** ``` !> !> Test program for the COMPLEX*16 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 10 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: !> 'zblat3.out' NAME OF SUMMARY OUTPUT FILE !> 6 UNIT NUMBER OF SUMMARY FILE !> 'ZBLAT3.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 !> ZGEMM T PUT F FOR NO TEST. SAME COLUMNS. !> ZHEMM T PUT F FOR NO TEST. SAME COLUMNS. !> ZSYMM T PUT F FOR NO TEST. SAME COLUMNS. !> ZTRMM T PUT F FOR NO TEST. SAME COLUMNS. !> ZTRSM T PUT F FOR NO TEST. SAME COLUMNS. !> ZHERK T PUT F FOR NO TEST. SAME COLUMNS. !> ZSYRK T PUT F FOR NO TEST. SAME COLUMNS. !> ZHER2K T PUT F FOR NO TEST. SAME COLUMNS. !> ZSYR2K T PUT F FOR NO TEST. SAME COLUMNS. !> ZGEMMTR 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 **86** of file **zblat3.f**. ### subroutine zchk1 (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, complex\*16, dimension( nalf ) alf, integer nbet, complex\*16, dimension( nbet ) bet, integer nmax, complex\*16, dimension( nmax, nmax ) a, complex\*16, dimension( nmax\*nmax ) aa, complex\*16, dimension( nmax\*nmax ) as, complex\*16, dimension( nmax, nmax ) b, complex\*16, dimension( nmax\*nmax ) bb, complex\*16, dimension( nmax\*nmax ) bs, complex\*16, dimension( nmax, nmax ) c, complex\*16, dimension( nmax\*nmax ) cc, complex\*16, dimension( nmax\*nmax ) cs, complex\*16, dimension( nmax ) ct, double precision, dimension( nmax ) g) Definition at line **413** of file **zblat3.f**. ### subroutine zchk2 (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, complex\*16, dimension( nalf ) alf, integer nbet, complex\*16, dimension( nbet ) bet, integer nmax, complex\*16, dimension( nmax, nmax ) a, complex\*16, dimension( nmax\*nmax ) aa, complex\*16, dimension( nmax\*nmax ) as, complex\*16, dimension( nmax, nmax ) b, complex\*16, dimension( nmax\*nmax ) bb, complex\*16, dimension( nmax\*nmax ) bs, complex\*16, dimension( nmax, nmax ) c, complex\*16, dimension( nmax\*nmax ) cc, complex\*16, dimension( nmax\*nmax ) cs, complex\*16, dimension( nmax ) ct, double precision, dimension( nmax ) g) Definition at line **698** of file **zblat3.f**. ### subroutine zchk3 (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, complex\*16, dimension( nalf ) alf, integer nmax, complex\*16, dimension( nmax, nmax ) a, complex\*16, dimension( nmax\*nmax ) aa, complex\*16, dimension( nmax\*nmax ) as, complex\*16, dimension( nmax, nmax ) b, complex\*16, dimension( nmax\*nmax ) bb, complex\*16, dimension( nmax\*nmax ) bs, complex\*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, complex\*16, dimension( nmax, nmax ) c) Definition at line **977** of file **zblat3.f**. ### subroutine zchk4 (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, complex\*16, dimension( nalf ) alf, integer nbet, complex\*16, dimension( nbet ) bet, integer nmax, complex\*16, dimension( nmax, nmax ) a, complex\*16, dimension( nmax\*nmax ) aa, complex\*16, dimension( nmax\*nmax ) as, complex\*16, dimension( nmax, nmax ) b, complex\*16, dimension( nmax\*nmax ) bb, complex\*16, dimension( nmax\*nmax ) bs, complex\*16, dimension( nmax, nmax ) c, complex\*16, dimension( nmax\*nmax ) cc, complex\*16, dimension( nmax\*nmax ) cs, complex\*16, dimension( nmax ) ct, double precision, dimension( nmax ) g) Definition at line **1288** of file **zblat3.f**. ### subroutine zchk5 (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, complex\*16, dimension( nalf ) alf, integer nbet, complex\*16, dimension( nbet ) bet, integer nmax, complex\*16, dimension( 2\*nmax\*nmax ) ab, complex\*16, dimension( nmax\*nmax ) aa, complex\*16, dimension( nmax\*nmax ) as, complex\*16, dimension( nmax\*nmax ) bb, complex\*16, dimension( nmax\*nmax ) bs, complex\*16, dimension( nmax, nmax ) c, complex\*16, dimension( nmax\*nmax ) cc, complex\*16, dimension( nmax\*nmax ) cs, complex\*16, dimension( nmax ) ct, double precision, dimension( nmax ) g, complex\*16, dimension( 2\*nmax ) w) Definition at line **1620** of file **zblat3.f**. ### subroutine zchk6 (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, complex\*16, dimension( nalf ) alf, integer nbet, complex\*16, dimension( nbet ) bet, integer nmax, complex\*16, dimension( nmax, nmax ) a, complex\*16, dimension( nmax\*nmax ) aa, complex\*16, dimension( nmax\*nmax ) as, complex\*16, dimension( nmax, nmax ) b, complex\*16, dimension( nmax\*nmax ) bb, complex\*16, dimension( nmax\*nmax ) bs, complex\*16, dimension( nmax, nmax ) c, complex\*16, dimension( nmax\*nmax ) cc, complex\*16, dimension( nmax\*nmax ) cs, complex\*16, dimension( nmax ) ct, double precision, dimension( nmax ) g) Definition at line **3707** of file **zblat3.f**. ### subroutine zchke (integer isnum, character\*7 srnamt, integer nout) Definition at line **1994** of file **zblat3.f**. ### subroutine zmake (character\*2 type, character\*1 uplo, character\*1 diag, integer m, integer n, complex\*16, dimension( nmax, \* ) a, integer nmax, complex\*16, dimension( \* ) aa, integer lda, logical reset, complex\*16 transl) Definition at line **3134** of file **zblat3.f**. ### subroutine zmmch (character\*1 transa, character\*1 transb, integer m, integer n, integer kk, complex\*16 alpha, complex\*16, dimension( lda, \* ) a, integer lda, complex\*16, dimension( ldb, \* ) b, integer ldb, complex\*16 beta, complex\*16, dimension( ldc, \* ) c, integer ldc, complex\*16, dimension( \* ) ct, double precision, dimension( \* ) g, complex\*16, dimension( ldcc, \* ) cc, integer ldcc, double precision eps, double precision err, logical fatal, integer nout, logical mv) Definition at line **3263** of file **zblat3.f**. ### subroutine zmmtch (character\*1 uplo, character\*1 transa, character\*1 transb, integer n, integer kk, complex\*16 alpha, complex\*16, dimension( lda, \* ) a, integer lda, complex\*16, dimension( ldb, \* ) b, integer ldb, complex\*16 beta, complex\*16, dimension( ldc, \* ) c, integer ldc, complex\*16, dimension( \* ) ct, double precision, dimension( \* ) g, complex\*16, dimension( ldcc, \* ) cc, integer ldcc, double precision eps, double precision err, logical fatal, integer nout, logical mv) Definition at line **3997** of file **zblat3.f**. ## Author Generated automatically by Doxygen for LAPACK from the source code.