Functions/Subroutines
program	zblat2
	ZBLAT2

subroutine	zchk1 (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	zchk2 (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	zchk3 (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	zchk4 (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	zchk5 (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	zchk6 (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	zchke (isnum, srnamt, nout)

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

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

◆ chkxer()

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

◆ ddiff()

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

◆ lze()

logical function lze	(	complex16, dimension( )	ri,
		complex16, dimension( )	rj,
		integer	lr
	)

◆ lzeres()

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

◆ xerbla()

subroutine xerbla	(	character*6	srname,
		integer	info
	)

◆ zbeg()

complex*16 function zbeg ( logical reset )

◆ zblat2()

program zblat2

ZBLAT2

Purpose:

 Test program for the COMPLEX*16       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 17 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 35 lines:
 'zblat2.out'      NAME OF SUMMARY OUTPUT FILE
 6                 UNIT NUMBER OF SUMMARY FILE
 'CBLA2T.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,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
 ZGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZHEMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZHBMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZHPMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZTRMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZTBMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZTPMV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZTRSV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZTBSV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZTPSV  T PUT F FOR NO TEST. SAME COLUMNS.
 ZGERC  T PUT F FOR NO TEST. SAME COLUMNS.
 ZGERU  T PUT F FOR NO TEST. SAME COLUMNS.
 ZHER   T PUT F FOR NO TEST. SAME COLUMNS.
 ZHPR   T PUT F FOR NO TEST. SAME COLUMNS.
 ZHER2  T PUT F FOR NO TEST. SAME COLUMNS.
 ZHPR2  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

◆ zchk1()

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

◆ zchk2()

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

◆ zchk3()

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	nkb,
		integer, dimension( nkb )	kb,
		integer	ninc,
		integer, dimension( ninc )	inc,
		integer	nmax,
		integer	incmax,
		complex*16, dimension( nmax, nmax )	a,
		complex16, dimension( nmaxnmax )	aa,
		complex16, dimension( nmaxnmax )	as,
		complex*16, dimension( nmax )	x,
		complex16, dimension( nmaxincmax )	xx,
		complex16, dimension( nmaxincmax )	xs,
		complex*16, dimension( nmax )	xt,
		double precision, dimension( nmax )	g,
		complex*16, dimension( nmax )	z
	)

◆ zchk4()

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

◆ zchk5()

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

◆ zchk6()

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

◆ zchke()

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

◆ zmake()

subroutine zmake	(	character*2	type,
		character*1	uplo,
		character*1	diag,
		integer	m,
		integer	n,
		complex16, dimension( nmax, )	a,
		integer	nmax,
		complex16, dimension( )	aa,
		integer	lda,
		integer	kl,
		integer	ku,
		logical	reset,
		complex*16	transl
	)

◆ zmvch()

subroutine zmvch	(	character*1	trans,
		integer	m,
		integer	n,
		complex*16	alpha,
		complex16, dimension( nmax, )	a,
		integer	nmax,
		complex16, dimension( )	x,
		integer	incx,
		complex*16	beta,
		complex16, dimension( )	y,
		integer	incy,
		complex16, dimension( )	yt,
		double precision, dimension( * )	g,
		complex16, dimension( )	yy,
		double precision	eps,
		double precision	err,
		logical	fatal,
		integer	nout,
		logical	mv
	)

Functions/Subroutines

Function/Subroutine Documentation

◆ chkxer()

◆ ddiff()

◆ lze()

◆ lzeres()

◆ xerbla()

◆ zbeg()

◆ zblat2()

◆ zchk1()

◆ zchk2()

◆ zchk3()

◆ zchk4()

◆ zchk5()

◆ zchk6()

◆ zchke()

◆ zmake()

◆ zmvch()