itest1()

subroutine itest1	(	integer	icomp,
		integer	itrue
	)