TR-mbed 1.0
Loading...
Searching...
No Matches
Functions/Subroutines
sblat3.f File Reference

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

◆ chkxer()

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

◆ lse()

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

◆ lseres()

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

◆ sbeg()

real function sbeg ( logical  reset)

◆ sblat3()

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.
Date
April 2012

◆ schk1()

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 
)

◆ schk2()

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 
)

◆ schk3()

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 
)

◆ schk4()

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 
)

◆ schk5()

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 
)

◆ schke()

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

◆ sdiff()

real function sdiff ( real  x,
real  y 
)

◆ smake()

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 
)

◆ smmch()

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 
)

◆ xerbla()

subroutine xerbla ( character*6  srname,
integer  info 
)
Generated by doxygen 1.9.8