zdrvac()

subroutine zdrvac	(	logical, dimension( * )	DOTYPE,
		integer	NM,
		integer, dimension( * )	MVAL,
		integer	NNS,
		integer, dimension( * )	NSVAL,
		double precision	THRESH,
		integer	NMAX,
		complex*16, dimension( * )	A,
		complex*16, dimension( * )	AFAC,
		complex*16, dimension( * )	B,
		complex*16, dimension( * )	X,
		complex*16, dimension( * )	WORK,
		double precision, dimension( * )	RWORK,
		complex, dimension(*)	SWORK,
		integer	NOUT
	)

ZDRVAC

Purpose:

 ZDRVAC tests ZCPOSV.

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 N contained in the vector MVAL.
[in]	MVAL	MVAL is INTEGER array, dimension (NM) The values of the matrix dimension N.
[in]	NNS	NNS is INTEGER The number of values of NRHS contained in the vector NSVAL.
[in]	NSVAL	NSVAL is INTEGER array, dimension (NNS) The values of the number of right hand sides NRHS.
[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]	NMAX	NMAX is INTEGER The maximum value permitted for N, used in dimensioning the work arrays.
[out]	A	A is COMPLEX*16 array, dimension (NMAX*NMAX)
[out]	AFAC	AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)
[out]	B	B is COMPLEX*16 array, dimension (NMAX*NSMAX)
[out]	X	X is COMPLEX*16 array, dimension (NMAX*NSMAX)
[out]	WORK	WORK is COMPLEX*16 array, dimension (NMAX*max(3,NSMAX))
[out]	RWORK	RWORK is DOUBLE PRECISION array, dimension (max(2*NMAX,2*NSMAX+NWORK))
[out]	SWORK	SWORK is COMPLEX array, dimension (NMAX*(NSMAX+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.