Functions/Subroutines
program	dblat2
	DBLAT2

subroutine	dchk1 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g)

subroutine	dchk2 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g)

subroutine	dchk3 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nkb, kb, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, xt, g, z)

subroutine	dchk4 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z)

subroutine	dchk5 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z)

subroutine	dchk6 (sname, eps, thresh, nout, ntra, trace, rewi, fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, z)

subroutine	dchke (isnum, srnamt, nout)

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

subroutine	dmvch (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, 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 )

◆ dblat2()

program dblat2

DBLAT2

Purpose:

 Test program for the DOUBLE PRECISION Level 2 Blas.

 The program must be driven by a short data file. The first 18 records
 of the file are read using list-directed input, the last 16 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 34 lines:
 'dblat2.out'      NAME OF SUMMARY OUTPUT FILE
 6                 UNIT NUMBER OF SUMMARY FILE
 'DBLAT2.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
 4                 NUMBER OF VALUES OF K
 0 1 2 4           VALUES OF K
 4                 NUMBER OF VALUES OF INCX AND INCY
 1 2 -1 -2         VALUES OF INCX AND INCY
 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 0.9       VALUES OF BETAC
 DGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DSYMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DSBMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DSPMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DTRMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DTBMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DTPMV  T PUT F FOR NO TEST. SAME COLUMNS.
 DTRSV  T PUT F FOR NO TEST. SAME COLUMNS.
 DTBSV  T PUT F FOR NO TEST. SAME COLUMNS.
 DTPSV  T PUT F FOR NO TEST. SAME COLUMNS.
 DGER   T PUT F FOR NO TEST. SAME COLUMNS.
 DSYR   T PUT F FOR NO TEST. SAME COLUMNS.
 DSPR   T PUT F FOR NO TEST. SAME COLUMNS.
 DSYR2  T PUT F FOR NO TEST. SAME COLUMNS.
 DSPR2  T PUT F FOR NO TEST. SAME COLUMNS.

 Further Details
 ===============

    See:

       Dongarra J. J., Du Croz J. J., Hammarling S.  and Hanson R. J..
       An  extended  set of Fortran  Basic Linear Algebra Subprograms.

       Technical  Memoranda  Nos. 41 (revision 3) and 81,  Mathematics
       and  Computer Science  Division,  Argonne  National Laboratory,
       9700 South Cass Avenue, Argonne, Illinois 60439, US.

       Or

       NAG  Technical Reports TR3/87 and TR4/87,  Numerical Algorithms
       Group  Ltd.,  NAG  Central  Office,  256  Banbury  Road, Oxford
       OX2 7DE, UK,  and  Numerical Algorithms Group Inc.,  1101  31st
       Street,  Suite 100,  Downers Grove,  Illinois 60515-1263,  USA.


 -- Written on 10-August-1987.
    Richard Hanson, Sandia National Labs.
    Jeremy Du Croz, NAG Central Office.

    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	nkb,
		integer, dimension( nkb )	kb,
		integer	nalf,
		double precision, dimension( nalf )	alf,
		integer	nbet,
		double precision, dimension( nbet )	bet,
		integer	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		double precision, dimension( nmax, nmax )	a,
		double precision, dimension( nmax*nmax )	aa,
		double precision, dimension( nmax*nmax )	as,
		double precision, dimension( nmax )	x,
		double precision, dimension( nmax*incmax )	xx,
		double precision, dimension( nmax*incmax )	xs,
		double precision, dimension( nmax )	y,
		double precision, dimension( nmax*incmax )	yy,
		double precision, dimension( nmax*incmax )	ys,
		double precision, dimension( nmax )	yt,
		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	nkb,
		integer, dimension( nkb )	kb,
		integer	nalf,
		double precision, dimension( nalf )	alf,
		integer	nbet,
		double precision, dimension( nbet )	bet,
		integer	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		double precision, dimension( nmax, nmax )	a,
		double precision, dimension( nmax*nmax )	aa,
		double precision, dimension( nmax*nmax )	as,
		double precision, dimension( nmax )	x,
		double precision, dimension( nmax*incmax )	xx,
		double precision, dimension( nmax*incmax )	xs,
		double precision, dimension( nmax )	y,
		double precision, dimension( nmax*incmax )	yy,
		double precision, dimension( nmax*incmax )	ys,
		double precision, dimension( nmax )	yt,
		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	nkb,
		integer, dimension( nkb )	kb,
		integer	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		double precision, dimension( nmax, nmax )	a,
		double precision, dimension( nmax*nmax )	aa,
		double precision, dimension( nmax*nmax )	as,
		double precision, dimension( nmax )	x,
		double precision, dimension( nmax*incmax )	xx,
		double precision, dimension( nmax*incmax )	xs,
		double precision, dimension( nmax )	xt,
		double precision, dimension( nmax )	g,
		double precision, dimension( nmax )	z
	)

◆ 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	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		double precision, dimension( nmax, nmax )	a,
		double precision, dimension( nmax*nmax )	aa,
		double precision, dimension( nmax*nmax )	as,
		double precision, dimension( nmax )	x,
		double precision, dimension( nmax*incmax )	xx,
		double precision, dimension( nmax*incmax )	xs,
		double precision, dimension( nmax )	y,
		double precision, dimension( nmax*incmax )	yy,
		double precision, dimension( nmax*incmax )	ys,
		double precision, dimension( nmax )	yt,
		double precision, dimension( nmax )	g,
		double precision, dimension( nmax )	z
	)

◆ 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	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		double precision, dimension( nmax, nmax )	a,
		double precision, dimension( nmax*nmax )	aa,
		double precision, dimension( nmax*nmax )	as,
		double precision, dimension( nmax )	x,
		double precision, dimension( nmax*incmax )	xx,
		double precision, dimension( nmax*incmax )	xs,
		double precision, dimension( nmax )	y,
		double precision, dimension( nmax*incmax )	yy,
		double precision, dimension( nmax*incmax )	ys,
		double precision, dimension( nmax )	yt,
		double precision, dimension( nmax )	g,
		double precision, dimension( nmax )	z
	)

◆ dchk6()

subroutine dchk6	(	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	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		double precision, dimension( nmax, nmax )	a,
		double precision, dimension( nmax*nmax )	aa,
		double precision, dimension( nmax*nmax )	as,
		double precision, dimension( nmax )	x,
		double precision, dimension( nmax*incmax )	xx,
		double precision, dimension( nmax*incmax )	xs,
		double precision, dimension( nmax )	y,
		double precision, dimension( nmax*incmax )	yy,
		double precision, dimension( nmax*incmax )	ys,
		double precision, dimension( nmax )	yt,
		double precision, dimension( nmax )	g,
		double precision, dimension( nmax, 2 )	z
	)

◆ 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,
		integer	kl,
		integer	ku,
		logical	reset,
		double precision	transl
	)

◆ dmvch()

subroutine dmvch	(	character*1	trans,
		integer	m,
		integer	n,
		double precision	alpha,
		double precision, dimension( nmax, * )	a,
		integer	nmax,
		double precision, dimension( * )	x,
		integer	incx,
		double precision	beta,
		double precision, dimension( * )	y,
		integer	incy,
		double precision, dimension( * )	yt,
		double precision, dimension( * )	g,
		double precision, dimension( * )	yy,
		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()

◆ dblat2()

◆ dchk1()

◆ dchk2()

◆ dchk3()

◆ dchk4()

◆ dchk5()

◆ dchk6()

◆ dchke()

◆ ddiff()

◆ dmake()

◆ dmvch()

◆ lde()

◆ lderes()

◆ xerbla()