anchor.diff:    duplicate(i) = .False.
    enddo
   
  - do i=1,N_det
  + do i=1,N_det-1
     if (duplicate(i)) then
       cycle
     endif
  
positive.code:     endif
    enddo
   enddo
  
   N_occ_pattern=0
   do i=1,N_det
  
negative.code:    !$DIR FORCEINLINE
     bit_tmp(i) = occ_pattern_search_key(psi_occ_pattern(1,1,i),N_int)
   enddo
   print*,'passed 1'
   call i8sort(bit_tmp,iorder,N_det)
   print*,'passed 2'
   !DIR$ IVDEP
   do i=1,N_det
    do k=1,N_int
  