BLAS/TESTING/sblat3.f(3)

NAME
BLAS/TESTING/sblat3.f

SYNOPSIS

  Functions/Subroutines
program sblat3
SBLAT3
subroutine schk1 (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 schk2 (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 schk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)
subroutine schk4 (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 schk5 (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 schke (isnum, srnamt, nout)
subroutine smake (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)
subroutine smmch (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)
logical function lse (ri, rj, lr)
logical function lseres (type, uplo, m, n, aa, as, lda)
real function sbeg (reset)
real function sdiff (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 2785 of file sblat3.f.

  logical function lse (real, dimension( * ) ri, real, dimension( * ) rj, integer lr)

Definition at line 2627 of file sblat3.f.

  logical function lseres (character*2 type, character*1 uplo, integer m, integer n, real, dimension( lda, * ) aa, real, dimension( lda, * ) as, integer lda)

Definition at line 2659 of file sblat3.f.

  real function sbeg (logical reset)

Definition at line 2720 of file sblat3.f.

  program sblat3

SBLAT3

Purpose:

     Test program for the REAL             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:
     'sblat3.out'      NAME OF SUMMARY OUTPUT FILE
     6                 UNIT NUMBER OF SUMMARY FILE
     'SBLAT3.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
     SGEMM  T PUT F FOR NO TEST. SAME COLUMNS.
     SSYMM  T PUT F FOR NO TEST. SAME COLUMNS.
     STRMM  T PUT F FOR NO TEST. SAME COLUMNS.
     STRSM  T PUT F FOR NO TEST. SAME COLUMNS.
     SSYRK  T PUT F FOR NO TEST. SAME COLUMNS.
     SSYR2K 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 81 of file sblat3.f.

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

Definition at line 392 of file sblat3.f.

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

Definition at line 673 of file sblat3.f.

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

Definition at line 943 of file sblat3.f.

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

Definition at line 1248 of file sblat3.f.

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

Definition at line 1523 of file sblat3.f.

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

Definition at line 1837 of file sblat3.f.

  real function sdiff (real x, real y)

Definition at line 2766 of file sblat3.f.

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

Definition at line 2392 of file sblat3.f.

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

Definition at line 2505 of file sblat3.f.

  subroutine xerbla (character*6 srname, integer info)

Definition at line 2815 of file sblat3.f.

Author

Generated automatically by Doxygen for LAPACK from the source code.