zchk5()

subroutine zchk5	(	character*12	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	nbet,
		complex*16, dimension( nbet )	bet,
		integer	nmax,
		complex*16, dimension( 2*nmax*nmax )	ab,
		complex*16, dimension( nmax*nmax )	aa,
		complex*16, dimension( nmax*nmax )	as,
		complex*16, dimension( nmax*nmax )	bb,
		complex*16, dimension( nmax*nmax )	bs,
		complex*16, dimension( nmax, nmax )	c,
		complex*16, dimension( nmax*nmax )	cc,
		complex*16, dimension( nmax*nmax )	cs,
		complex*16, dimension( nmax )	ct,
		double precision, dimension( nmax )	g,
		complex*16, dimension( 2*nmax )	w,
		integer	iorder
	)