anchor.diff:    call create_minilist_find_previous(key_mask, psi_det_generators, miniList_gen, i_generator-1, N_minilist_gen, fullMatch, Nint)
     
     if(fullMatch) then
  +    deallocate( minilist, minilist_gen, idx_minilist )
       return
     end if
     
  
positive.code:   integer, external              :: connected_to_ref_by_mono
    logical, external              :: is_in_wavefunction
    
    integer(bit_kind) :: minilist(Nint,2,N_det_selectors)
    integer :: idx_minilist(N_det_selectors), N_minilist
    
    integer(bit_kind) :: minilist_gen(Nint,2,N_det_generators)
    integer :: N_minilist_gen
    logical :: fullMatch
    logical, external :: is_connected_to
  
    
  
    ASSERT (Nint > 0)
  
negative.code:     enddo
      
    enddo 
    deallocate( minilist, minilist_gen, idx_minilist )
    
  end
  
  