Fix opt_delete overlap

3 years ago · b530b15397
parent 79fa4b3cb7
commit b530b15397
1 changed files with 2 additions and 2 deletions
--- a/src/opt_delete.f90
+++ b/src/opt_delete.f90
@ -127,7 +127,7 @@ module opt_delete

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