anchor.diff:          call elem_rhoz% append(rhoz% data, i, i*tau)
           rhoz% data = 0
           call compute_vxz
  -        call v_xz_el%append(v_xz, i, i*tau)
  +        if (modulo(i, 10)==0) then
  +           call div_vxz(10)
  +           call v_xz_el%append(v_xz, i, i*tau)
  +           v_xz_count = 0
  +           v_xz = 0
  +        end if
           call varia%tac()
   
           call sphere_io%position%append(colloids%pos)
  
positive.code:        end if
      end do
  
      do i = 1, L(1)
         do j = 1, L(3)
            if (v_xz_count(j, i) > 0) then
               v_xz(:, j, i) = v_xz(:, j, i) / v_xz_count(j, i)
            end if
         end do
      end do
  
    end subroutine compute_vxz
  
  end program setup_sphere_thermo_trap
  
negative.code: 
    i = 0
    wall_v = 0
    v_xz_count = 0
    v_xz = 0
  
    write(*,*) 'Running for', N_loop, 'loops'
    !start RMPCDMD
  