FIXME : Add documentation
subroutine init_dist_fn call init_dist_fn_level_3 end subroutine init_dist_fn