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
	)