ddrvgt()

subroutine ddrvgt	(	logical, dimension( * )	DOTYPE,
		integer	NN,
		integer, dimension( * )	NVAL,
		integer	NRHS,
		double precision	THRESH,
		logical	TSTERR,
		double precision, dimension( * )	A,
		double precision, dimension( * )	AF,
		double precision, dimension( * )	B,
		double precision, dimension( * )	X,
		double precision, dimension( * )	XACT,
		double precision, dimension( * )	WORK,
		double precision, dimension( * )	RWORK,
		integer, dimension( * )	IWORK,
		integer	NOUT
	)

DDRVGT

Purpose:

 DDRVGT tests DGTSV and -SVX.

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]	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 dimension N.
[in]	NRHS	NRHS is INTEGER The number of right hand sides, NRHS >= 0.
[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 DOUBLE PRECISION array, dimension (NMAX*4)
[out]	AF	AF is DOUBLE PRECISION array, dimension (NMAX*4)
[out]	B	B is DOUBLE PRECISION array, dimension (NMAX*NRHS)
[out]	X	X is DOUBLE PRECISION array, dimension (NMAX*NRHS)
[out]	XACT	XACT is DOUBLE PRECISION array, dimension (NMAX*NRHS)
[out]	WORK	WORK is DOUBLE PRECISION array, dimension (NMAX*max(3,NRHS))
[out]	RWORK	RWORK is DOUBLE PRECISION array, dimension (max(NMAX,2*NRHS))
[out]	IWORK	IWORK is INTEGER 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.