aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added group option and shift command

Browse source
This commit is contained in:
Alex 2020-01-27 10:01:22 -05:00
parent f80045058f
commit 347b73054b
5 changed files with 232 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/subroutines.f90
View file

@ -178,6 +178,8 @@ module subroutines
real(kind=dp), intent(out) :: pos !The output parsed position value
integer :: iospara
iospara = 0
if(trim(adjustl(pos_string)) == 'inf') then
pos=box_bd(2*i)
else if(trim(adjustl(pos_string)) == '-inf') then
@ -258,12 +260,13 @@ module subroutines
real(kind=dp), dimension(3), intent(inout) :: r
integer :: j
real(kind=dp) ::box_len
do j = 1, 3
box_len = box_bd(2*j) - box_bd(2*j-1)
if (r(j) > box_bd(2*j)) then
r(j) = r(j) - box_bd(2*j)
r(j) = r(j) - box_len
else if (r(j) < box_bd(2*j-1)) then
r(j) = r(j) + box_bd(2*j-1)
r(j) = r(j) + box_len
end if
end do
end subroutine