Working changes to group

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
@@ -851,6 +851,12 @@ module opt_group
 
     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
         real(kind=dp), intent(in) :: r(3)