aselimov/CACmb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working changes to group

Browse Source
This commit is contained in:
Alex Selimov 2020-09-13 15:04:08 -04:00
parent 96e2242573
commit c4afde2743
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/opt_group.f90
View File

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