aselimov/CACmb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix overlap command

Browse Source
This commit is contained in:
Alex Selimov 2021-07-22 14:38:49 -04:00
parent 5c50ce8765
commit 7979ad1093
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/opt_delete.f90
View File

@ -126,6 +126,15 @@ module opt_delete
end if
!Now zero out the larger index
if(first) then
if(i > nei) then
which_cell(:,i) = 0
cycle atom_loop
else
which_cell(:,nei) = 0
cell_list(num_nei,c(1) + ck, c(2) + cj, c(3) + ci) = 0
end if
else
if(i < nei) then
which_cell(:,i) = 0
cycle atom_loop
@ -134,6 +143,8 @@ module opt_delete
cell_list(num_nei,c(1) + ck, c(2) + cj, c(3) + ci) = 0
end if
end if
end if
end if
end do
end do