anchor.diff:  !                 endif
   !               end do
   !             else
  -              call i_H_psi(exc_det,microlist(1,1,ptr_futur_microlist(sporb)),psi_coef_microlist(ptr_futur_microlist(sporb), 1),N_int,N_futur_microlist(sporb),psi_selectors_size*4,N_states,i_H_psi_value2)
  +              call i_H_psi(exc_det,microlist(1,1,ptr_microlist(sporb)),psi_coef_microlist(ptr_microlist(sporb), 1),N_int,N_microlist(sporb)-N_futur_microlist(sporb),psi_selectors_size*4,N_states,i_H_psi_value2)
                 i_H_psi_value = i_H_psi_value + i_H_psi_value2
   !               !$OMP ATOMIC
   !               d2 += dabs(i_H_psi_value2(1))
  
positive.code:             microlist, idx_microlist, N_microlist, ptr_microlist, &
              tmicrolist, idx_tmicrolist, N_tmicrolist, ptr_tmicrolist, &
              isinwf, d0s, N_int)
        if(N_microlist(0) > 0 .and. idx_microlist(1) < i_generator) stop "wtf..."
        if(ptr_microlist(mo_tot_num * 2 + 1) == 1 .and. ptr_tmicrolist(mo_tot_num * 2 + 1) == 1) cycle
        
        call finish_isinwf(ion_det, psi_det_sorted(1,1,N_det_selectors+1), N_det - N_det_selectors, isinwf)
  
negative.code:     if(nt > 3) then !! TOO MANY DIFFERENCES
        continue
      else if(nt < 3) then
        if(i > i_cur) then
          N_microlist(:) = 0  !!!! PAST LINKED TO EVERYBODY!
          ptr_microlist(:) = 1
          return  
  