added dist_init_dmnu.f90