anchor.diff:        end do
         if(ctask > 0) then
           call push_selection_results(zmq_socket_push, pt2, buf, task_id(1), ctask)
  +        do i=1,buf%cur
  +          call add_to_selection_buffer(buf2, buf%det(1,1,i), buf%val(i))
  +        enddo
  +        call sort_selection_buffer(buf2)
  +        buf%mini = buf2%mini
           pt2 = 0d0
           buf%cur = 0
         end if
  -
         ctask = 0
       end if
   
  
positive.code:       particle_mask(k,:) = hole_mask(k,:)
      enddo
  
      call select_singles(i_generator,hole_mask,particle_mask,fock_diag_tmp,E0,pt2,b)
      call select_doubles(i_generator,hole_mask,particle_mask,fock_diag_tmp,E0,pt2,b)
    enddo
  end
  
  
negative.code:       integer :: i_generator, N
        read (task,*) i_generator, N
        if(buf%N == 0) then
          ! Only first time 
          call create_selection_buffer(N, N*2, buf)
          call create_selection_buffer(N, N*3, buf2)
        else
          if(N /= buf%N) stop "N changed... wtf man??"
        end if
  