anchor.diff:          l = l+1
         endif
       enddo
  -    call fill_H_apply_buffer_no_selection(l-1, tmp_det, N_int, 1)
  -  enddo
  +    call fill_H_apply_buffer_no_selection(l-1, tmp_det, N_int, iproc)
  +  enddo
  +  !$OMP END DO NOWAIT
  +  deallocate(tmp_det)
  +  !$OMP END PARALLEL
     deallocate (tmp_det)
     call copy_H_apply_buffer_to_wf
     SOFT_TOUCH psi_det psi_coef N_det
  
positive.code:   integer, external              :: get_index_in_psi_det_sorted_bit
    logical, external              :: is_in_wavefunction
  
    psi_svd_matrix = 0.d0
    do j=1,N_det_beta_unique
      do k=1,N_int
        tmp_det(k,2) = psi_det_beta_unique(k,j)
  
negative.code:       endif
      enddo
    enddo
    !$OMP END PARALLEL DO
  
  END_PROVIDER
  
  