threaded veltransfer in dist_init_dmnu.f90