SUBROUTINE HITSDO(IH,I,J)
	IM	= 4*IH - 3
	IF(MTSTI(I,IM,IM+1) .EQ. 0) RETURN
	IF(MTSTI(J,IM+2,IM+3) .EQ. 0) RETURN
	CALL	HISTI(IH,I,J)
	END