.TH "BLAS/TESTING/zblat3.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME BLAS/TESTING/zblat3.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "program \fBzblat3\fP" .br .RI "\fBZBLAT3\fP " .ti -1c .RI "subroutine \fBzchk1\fP (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)" .br .ti -1c .RI "subroutine \fBzchk2\fP (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)" .br .ti -1c .RI "subroutine \fBzchk3\fP (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)" .br .ti -1c .RI "subroutine \fBzchk4\fP (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)" .br .ti -1c .RI "subroutine \fBzchk5\fP (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)" .br .ti -1c .RI "subroutine \fBzchke\fP (isnum, srnamt, nout)" .br .ti -1c .RI "subroutine \fBzmake\fP (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)" .br .ti -1c .RI "subroutine \fBzmmch\fP (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)" .br .ti -1c .RI "logical function \fBlze\fP (ri, rj, lr)" .br .ti -1c .RI "logical function \fBlzeres\fP (type, uplo, m, n, aa, as, lda)" .br .ti -1c .RI "complex *16 function \fBzbeg\fP (reset)" .br .ti -1c .RI "double precision function \fBddiff\fP (x, y)" .br .ti -1c .RI "subroutine \fBchkxer\fP (srnamt, infot, nout, lerr, ok)" .br .ti -1c .RI "subroutine \fBxerbla\fP (srname, info)" .br .ti -1c .RI "subroutine \fBzchk6\fP (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)" .br .ti -1c .RI "subroutine \fBzmmtch\fP (uplo, transa, transb, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)" .br .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine chkxer (character*7 srnamt, integer infot, integer nout, logical lerr, logical ok)" .PP Definition at line \fB3619\fP of file \fBzblat3\&.f\fP\&. .SS "double precision function ddiff (double precision x, double precision y)" .PP Definition at line \fB3600\fP of file \fBzblat3\&.f\fP\&. .SS "logical function lze (complex*16, dimension( * ) ri, complex*16, dimension( * ) rj, integer lr)" .PP Definition at line \fB3453\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB3485\fP of file \fBzblat3\&.f\fP\&. .SS "subroutine xerbla (character*(*) srname, integer info)" .PP Definition at line \fB3649\fP of file \fBzblat3\&.f\fP\&. .SS "complex*16 function zbeg (logical reset)" .PP Definition at line \fB3546\fP of file \fBzblat3\&.f\fP\&. .SS "program zblat3" .PP \fBZBLAT3\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> 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) !> .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .PP Definition at line \fB86\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB413\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB698\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB977\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB1288\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB1620\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB3707\fP of file \fBzblat3\&.f\fP\&. .SS "subroutine zchke (integer isnum, character*7 srnamt, integer nout)" .PP Definition at line \fB1994\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB3134\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB3263\fP of file \fBzblat3\&.f\fP\&. .SS "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)" .PP Definition at line \fB3997\fP of file \fBzblat3\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.