From de1d230b87401fcb12b4a8c57e8b0d363ec8183a Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Fri, 20 Mar 2020 10:44:31 -0400 Subject: [PATCH] Remove sub_box_arrary_bd as it isn't needed --- src/box.f90 | 8 +------- src/mode_create.f90 | 3 --- 2 files changed, 1 insertion(+), 10 deletions(-) diff --git a/src/box.f90 b/src/box.f90 index f98ed88..c6e7948 100644 --- a/src/box.f90 +++ b/src/box.f90 @@ -11,7 +11,6 @@ module box !command. Currently only mode_merge will require sub_boxes, for mode_create it will always !allocate to only 1 sub_box integer :: sub_box_num = 0 - integer, allocatable :: sub_box_array_bd(:,:,:)!Boundaries in the atom and element arrays for each sub_box real(kind=dp), allocatable :: sub_box_ori(:,:,:)!Orientations for each of the subboxes real(kind=dp), allocatable :: sub_box_bd(:,:)!Boundaries for each of the sub_boxes @@ -38,11 +37,10 @@ module box integer :: i - allocate(sub_box_ori(3,3,n), sub_box_bd(6,n), sub_box_array_bd(2,2,n)) + allocate(sub_box_ori(3,3,n), sub_box_bd(6,n)) do i = 1, n sub_box_ori(:,:,i) = identity_mat(3) sub_box_bd(:,i) = 0.0_dp - sub_box_array_bd(:,:,i) = 1 end do end subroutine alloc_sub_box @@ -65,10 +63,6 @@ module box temp_bd(:, sub_box_num+1:) = 0.0_dp call move_alloc(temp_bd, sub_box_bd) - temp_array_bd(:,:,1:sub_box_num) = sub_box_array_bd - temp_array_bd(:,:,sub_box_num+1:) = 1 - call move_alloc(temp_array_bd, sub_box_array_bd) - return end subroutine grow_sub_box diff --git a/src/mode_create.f90 b/src/mode_create.f90 index 3cbafa2..ffdfc05 100644 --- a/src/mode_create.f90 +++ b/src/mode_create.f90 @@ -158,9 +158,6 @@ module mode_create sub_box_num = 1 sub_box_ori(:,:,1) = orient sub_box_bd(:,1) = box_bd - sub_box_array_bd(1,:,1) = 1 - sub_box_array_bd(2,1,1) = atom_num - sub_box_array_bd(2,2,1) = ele_num end subroutine create !This subroutine parses the command and pulls out information needed for mode_create subroutine parse_command(arg_pos)