|
|
@ -188,7 +188,7 @@ module mode_merge
|
|
|
|
end do
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
|
|
!If we don't include the wrap command then we have to increase the size of the box
|
|
|
|
!If we don't include the wrap command then we have to increase the size of the box
|
|
|
|
if(.not.(wrap_flag)) then
|
|
|
|
if(.not.(wrap_flag).and..not.(trim(adjustl(dim))=='none')) then
|
|
|
|
do i = 1,3
|
|
|
|
do i = 1,3
|
|
|
|
if (alldims(i:i) /= trim(adjustl(dim))) then
|
|
|
|
if (alldims(i:i) /= trim(adjustl(dim))) then
|
|
|
|
if (current_shift(i) < -lim_zero) then
|
|
|
|
if (current_shift(i) < -lim_zero) then
|
|
|
|