modified inbreeding_purge