BLD: split id_dist fortran subroutines less