Added orient and unorient options
This commit is contained in:
parent
58ad74ca9a
commit
44efb4be4a
6 changed files with 77 additions and 30 deletions
|
@ -229,7 +229,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