calc_haplen function

Calculate length of longest shared haplotypes around a focal marker