anchor.diff:    integer, intent(out) :: N_microlist(0:mo_tot_num*2), ptr_microlist(0:mo_tot_num*2+1), idx_microlist(N_minilist*4)
     integer(bit_kind), intent(out) :: microlist(Nint,2,N_minilist*4)
     
  +  integer, intent(out) :: N_tmicrolist(0:mo_tot_num*2), ptr_tmicrolist(0:mo_tot_num*2+1), idx_tmicrolist(N_minilist*4)
  +  integer(bit_kind), intent(out) :: tmicrolist(Nint,2,N_minilist*4)
  +  
     integer :: i,j,k,s,nt,n_element(2)
  -  integer :: list(Nint*bit_kind_size,2), cur_microlist(0:mo_tot_num*2+1)
  +  integer :: list(Nint*bit_kind_size,2), cur_microlist(0:mo_tot_num*2+1), cur_tmicrolist(0:mo_tot_num*2+1)
     integer(bit_kind) :: key_mask_neg(Nint,2), mobileMask(Nint,2)
     integer :: mo_tot_num_2
     mo_tot_num_2 = mo_tot_num+mo_tot_num
  
positive.code: 
    call bitstring_to_list_ab(hole    , hole_list    , N_holes    , N_int)
    call bitstring_to_list_ab(particle, particle_list, N_particles, N_int)
    if(N_particles(1) /= (27-9) .or. N_particles(2) /= (27-8) .or. N_holes(1) /= 4 .or. N_holes(2) /= 3) stop "wyyyzkklk"
    ! Create excited determinants
    ! ---------------------------
  
  
negative.code: end subroutine
  
  
  subroutine create_microlist_double(minilist, i_cur, N_minilist, key_mask, microlist, idx_microlist, N_microlist, ptr_microlist, &
                                                                            tmicrolist, idx_tmicrolist, N_tmicrolist, ptr_tmicrolist, Nint)
    use bitmasks
    integer, intent(in) :: Nint, i_cur, N_minilist
    integer(bit_kind), intent(in) :: minilist(Nint,2,N_minilist), key_mask(Nint,2)
  