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

Fix to bug causing incorrrect positions. Remeshing algorithm works

Browse Source
This commit is contained in:
Alex 2020-02-25 10:11:12 -05:00
parent c698c31ede
commit 56994393a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/opt_group.f90
View File

@ -370,7 +370,7 @@ module opt_group
do inod = 1, 8 do inod = 1, 8
vlat = ele(:,inod) + (/ix, iy, iz /) vlat = ele(:,inod) + (/ix, iy, iz /)
do i = 1, 3 do i = 1, 3
vlat = vlat + bd_in_lat(2*i-1)-5 vlat(i) = vlat(i) + bd_in_lat(2*i-1)-5
end do end do
r_new_node(:,1,inod) = matmul(orient, matmul(fcc_mat, vlat))*remesh_lat_pam r_new_node(:,1,inod) = matmul(orient, matmul(fcc_mat, vlat))*remesh_lat_pam
end do end do
@ -393,7 +393,7 @@ module opt_group
if(lat_points(ix,iy,iz)) then if(lat_points(ix,iy,iz)) then
vlat = (/ ix, iy, iz /) vlat = (/ ix, iy, iz /)
do i = 1, 3 do i = 1, 3
vlat = vlat + bd_in_lat(2*i-1)-5 vlat(i) = vlat(i) + bd_in_lat(2*i-1)-5
end do end do
r = matmul(orient, matmul(fcc_mat, vlat))*remesh_lat_pam r = matmul(orient, matmul(fcc_mat, vlat))*remesh_lat_pam
call add_atom(remesh_type, sbox_atom(atom_index(1)), r) call add_atom(remesh_type, sbox_atom(atom_index(1)), r)