anchor.diff:  end subroutine
   
   
  -subroutine check_past_s(det, list, N, ok, Nint)
  +subroutine check_futur(det, list, N, ok, Nint)
     implicit none
     use bitmasks
     
  
positive.code:           
            integer :: c1, c2
            double precision :: hij
            c1 = ptr_futur_tmicrolist(p1)
            c2 = ptr_futur_tmicrolist(p2)
            do while(.true.)
              if(c1 >= ptr_tmicrolist(p1+1) .or. c2 >= ptr_tmicrolist(p2+1)) then
                if(ptr_tmicrolist(p1+1) /= c1) then
                  call i_H_psi(exc_det,tmicrolist(1,1,c1),psi_coef_tmicrolist(c1, 1),N_int, ptr_tmicrolist(p1+1)-c1 ,psi_selectors_size*3,N_states,i_H_psi_value2)
                  i_H_psi_value = i_H_psi_value + i_H_psi_value2
  ! !                 !$OMP ATOMIC
  !                 d1 += dabs(i_H_psi_value2(1))
                end if
                
                if(ptr_tmicrolist(p2+1) /= c2) then
                  call i_H_psi(exc_det,tmicrolist(1,1,c2),psi_coef_tmicrolist(c2, 1),N_int, ptr_tmicrolist(p2+1)-c2 ,psi_selectors_size*3,N_states,i_H_psi_value2)
                  i_H_psi_value = i_H_psi_value + i_H_psi_value2
  !                 !$OMP ATOMIC
  !                 d1 += dabs(i_H_psi_value2(1))
  
negative.code:       
        
      if(nt <= 2) then
        if(i > i_cur) then
          N_microlist = 0 
          ptr_microlist = 1
          N_tmicrolist = 0 
  