alleledist function

Shared allele distance for diploid loci