Working changes to group

development
Alex Selimov 4 years ago
parent 96e2242573
commit c4afde2743

@ -8,7 +8,7 @@ module opt_group
use box use box
implicit none 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 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 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 logical :: displace, delete, max_remesh, refine, group_nodes, flip
@ -850,6 +850,12 @@ module opt_group
call delete_elements(group_ele_num, element_index) call delete_elements(group_ele_num, element_index)
end subroutine delete_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) function in_group(r)
!This subroutine determines if a point is within the group boundaries !This subroutine determines if a point is within the group boundaries

Loading…
Cancel
Save