BLAS/TESTING/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)

Function/Subroutine Documentation

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

Definition at line 3414 of file zblat3.f.

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

Definition at line 3395 of file zblat3.f.

  logical function lze (complex*16, dimension( * ) ri, complex*16, dimension( * ) rj, integer lr)

Definition at line 3248 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 3280 of file zblat3.f.

  subroutine xerbla (character*6 srname, integer info)

Definition at line 3444 of file zblat3.f.

  complex*16 function zbeg (logical reset)

Definition at line 3341 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 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:
     '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.
     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 85 of file zblat3.f.

  subroutine zchk1 (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, 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 404 of file zblat3.f.

  subroutine zchk2 (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, 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 689 of file zblat3.f.

  subroutine zchk3 (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, 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 968 of file zblat3.f.

  subroutine zchk4 (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, 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 1279 of file zblat3.f.

  subroutine zchk5 (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, 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 1611 of file zblat3.f.

  subroutine zchke (integer isnum, character*6 srnamt, integer nout)

Definition at line 1985 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 2929 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 3058 of file zblat3.f.

Author

Generated automatically by Doxygen for LAPACK from the source code.