Functions/Subroutines
program	dblat3
	DBLAT3

subroutine	dchk1 (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	dchk2 (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	dchk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, nmax, a, aa, as, b, bb, bs, ct, g, c)

subroutine	dchk4 (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	dchk5 (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	dchke (isnum, srnamt, nout)

subroutine	dmake (type, uplo, diag, m, n, a, nmax, aa, lda, reset, transl)

subroutine	dmmch (transa, transb, m, n, kk, alpha, a, lda, b, ldb, beta, c, ldc, ct, g, cc, ldcc, eps, err, fatal, nout, mv)

logical function	lde (ri, rj, lr)

logical function	lderes (type, uplo, m, n, aa, as, lda)

double precision function	dbeg (reset)

double precision function	ddiff (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
	)

◆ dbeg()

double precision function dbeg ( logical reset )

◆ dblat3()

program dblat3

DBLAT3

Purpose:

 Test program for the DOUBLE PRECISION 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:
 'dblat3.out'      NAME OF SUMMARY OUTPUT FILE
 6                 UNIT NUMBER OF SUMMARY FILE
 'DBLAT3.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
 DGEMM  T PUT F FOR NO TEST. SAME COLUMNS.
 DSYMM  T PUT F FOR NO TEST. SAME COLUMNS.
 DTRMM  T PUT F FOR NO TEST. SAME COLUMNS.
 DTRSM  T PUT F FOR NO TEST. SAME COLUMNS.
 DSYRK  T PUT F FOR NO TEST. SAME COLUMNS.
 DSYR2K 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

◆ dchk1()

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

◆ dchk2()

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

◆ dchk3()

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

◆ dchk4()

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

◆ dchk5()

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

◆ dchke()

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

◆ ddiff()

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

◆ dmake()

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

◆ dmmch()

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

◆ lde()

logical function lde	(	double precision, dimension( * )	ri,
		double precision, dimension( * )	rj,
		integer	lr
	)

◆ lderes()

logical function lderes	(	character*2	type,
		character*1	uplo,
		integer	m,
		integer	n,
		double precision, dimension( lda, * )	aa,
		double precision, dimension( lda, * )	as,
		integer	lda
	)

◆ xerbla()

subroutine xerbla	(	character*6	srname,
		integer	info
	)

Functions/Subroutines

Function/Subroutine Documentation

◆ chkxer()

◆ dbeg()

◆ dblat3()

◆ dchk1()

◆ dchk2()

◆ dchk3()

◆ dchk4()

◆ dchk5()

◆ dchke()

◆ ddiff()

◆ dmake()

◆ dmmch()

◆ lde()

◆ lderes()

◆ xerbla()