Fix bug in neighbors
This commit is contained in:
parent
d5d20e468c
commit
044bfe7e7f
@ -94,6 +94,8 @@ module neighbors
|
|||||||
end if
|
end if
|
||||||
|
|
||||||
allocate(nei_list(100,n),nei_num(n))
|
allocate(nei_list(100,n),nei_num(n))
|
||||||
|
nei_list=0
|
||||||
|
nei_num=0
|
||||||
|
|
||||||
!Now first pass the position list and and point num to the cell algorithm
|
!Now first pass the position list and and point num to the cell algorithm
|
||||||
call build_cell_list(n, r_list, rc_off, cell_num, num_in_cell, cell_list, which_cell)
|
call build_cell_list(n, r_list, rc_off, cell_num, num_in_cell, cell_list, which_cell)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user