From c4afde27438aabbc2924ca6884ec6ffb5dac6dc5 Mon Sep 17 00:00:00 2001 From: Alex Selimov Date: Sun, 13 Sep 2020 15:04:08 -0400 Subject: [PATCH] Working changes to group --- src/opt_group.f90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/opt_group.f90 b/src/opt_group.f90 index c24b857..eea9424 100644 --- a/src/opt_group.f90 +++ b/src/opt_group.f90 @@ -8,7 +8,7 @@ module opt_group use box implicit none - integer :: group_ele_num, group_atom_num, remesh_size,normal, dim1, dim2, random_num + integer :: group_ele_num, group_atom_num, remesh_size,normal, dim1, dim2, random_num, group_type character(len=15) :: type, shape !Type indicates what element type is selected and shape is the group shape real(kind=dp) :: block_bd(6), centroid(3), vertices(3,3),disp_vec(3), radius, bwidth logical :: displace, delete, max_remesh, refine, group_nodes, flip @@ -850,6 +850,12 @@ module opt_group call delete_elements(group_ele_num, element_index) end subroutine delete_group + + subroutine change_group + !This subroutine changes all atoms and nodes at atoms within a group to a specific type + + print *, "Changing ", group_atom_num " atoms and ", group_ele_num, " elements to atom type ", group_type + end subroutine change_group function in_group(r) !This subroutine determines if a point is within the group boundaries