Merge pull request #22 from aselimov/ft--option-orient
Ft option orient
This commit is contained in:
commit
08aa5d46df
7 changed files with 198 additions and 30 deletions
|
@ -237,7 +237,7 @@ module opt_group
|
|||
!here as well to make sure they are in the box
|
||||
do j = 1, basisnum(lat_ele(ie))*size_ele(ie)**3
|
||||
call apply_periodic(r_interp(:,j))
|
||||
call add_atom(type_interp(j), r_interp(:,j))
|
||||
call add_atom(type_interp(j), sbox_ele(ie), r_interp(:,j))
|
||||
end do
|
||||
end do
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue