zchktz()

subroutine zchktz	(	logical, dimension( * )	DOTYPE,
		integer	NM,
		integer, dimension( * )	MVAL,
		integer	NN,
		integer, dimension( * )	NVAL,
		double precision	THRESH,
		logical	TSTERR,
		complex*16, dimension( * )	A,
		complex*16, dimension( * )	COPYA,
		double precision, dimension( * )	S,
		complex*16, dimension( * )	TAU,
		complex*16, dimension( * )	WORK,
		double precision, dimension( * )	RWORK,
		integer	NOUT
	)

ZCHKTZ

Purpose:

 ZCHKTZ tests ZTZRZF.

Parameters

[in]	DOTYPE	DOTYPE is LOGICAL array, dimension (NTYPES) The matrix types to be used for testing. Matrices of type j (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) = .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.
[in]	NM	NM is INTEGER The number of values of M contained in the vector MVAL.
[in]	MVAL	MVAL is INTEGER array, dimension (NM) The values of the matrix row dimension M.
[in]	NN	NN is INTEGER The number of values of N contained in the vector NVAL.
[in]	NVAL	NVAL is INTEGER array, dimension (NN) The values of the matrix column dimension N.
[in]	THRESH	THRESH is DOUBLE PRECISION The threshold value for the test ratios. A result is included in the output file if RESULT >= THRESH. To have every test ratio printed, use THRESH = 0.
[in]	TSTERR	TSTERR is LOGICAL Flag that indicates whether error exits are to be tested.
[out]	A	A is COMPLEX*16 array, dimension (MMAX*NMAX) where MMAX is the maximum value of M in MVAL and NMAX is the maximum value of N in NVAL.
[out]	COPYA	COPYA is COMPLEX*16 array, dimension (MMAX*NMAX)
[out]	S	S is DOUBLE PRECISION array, dimension (min(MMAX,NMAX))
[out]	TAU	TAU is COMPLEX*16 array, dimension (MMAX)
[out]	WORK	WORK is COMPLEX*16 array, dimension (MMAX*NMAX + 4*NMAX + MMAX)
[out]	RWORK	RWORK is DOUBLE PRECISION array, dimension (2*NMAX)
[in]	NOUT	NOUT is INTEGER The unit number for output.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.