added two fcluster functions for collasping flat clusters from HC