Fix bug for writing to .xyz file after delete

development
Alex Selimov 4 years ago
parent 7ee87c767f
commit e3dba9029a

@ -533,6 +533,7 @@ module elements
!accidentally overwrite values which need to be deleted !accidentally overwrite values which need to be deleted
do i = num, 1, -1 do i = num, 1, -1
node_num = node_num - ng_node(lat_ele(sorted_index(i))) node_num = node_num - ng_node(lat_ele(sorted_index(i)))
node_atoms = node_atoms - ng_node(lat_ele(sorted_index(i)))*basisnum(lat_ele(sorted_index(i)))
if(sorted_index(i) == ele_num) then if(sorted_index(i) == ele_num) then
r_node(:,:,:,sorted_index(i)) = 0.0_dp r_node(:,:,:,sorted_index(i)) = 0.0_dp
type_ele(sorted_index(i)) ='' type_ele(sorted_index(i)) =''

Loading…
Cancel
Save