Implement non-random mating by TPG2013. #8