Skip to main content
. Author manuscript; available in PMC: 2020 Aug 5.
Published in final edited form as: J Comput Chem. 2019 Apr 17;40(21):1919–1930. doi: 10.1002/jcc.25840

Algorithm 3.

New neighbor search algorithm

do ij = 1, M
 icel = cell_index(1,ij)
 jcel = cell_index(2,ij)
 Neighbor(i,ij) = 0
 do i = 1, N(icel)
  do j = 1, N(jcel)
   rij(1) = coord(1,i,icel)-coord(1,j,jcel)
   rij(2) = coord(2,i,icel)-coord(2,j,jcel)
   rij(3) = coord(3,i,icel)-coord(3,j,jcel)
   dij = sqrt(rij(1)2+rij(1)2+rij(1)3)
   if (dij < pairlist cutoff) then
    Neighbor(i,ij) = 1
    exit the do loop
   end if
  end do
 end do
end do