Move part of montecarlo_one_packet_loop functionality to montecarlo_thomson_scatter