solid_set_Communicate Subroutine

private impure subroutine solid_set_Communicate(this)

Communicates markers of all solids in this set.

Type Bound

solid_set

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solids

Calls

proc~~solid_set_communicate~~CallsGraph proc~solid_set_communicate solid_set%solid_set_Communicate proc~lagrangian_set_communicate lagrangian_set%lagrangian_set_Communicate proc~solid_set_communicate->proc~lagrangian_set_communicate mpi_gather mpi_gather proc~lagrangian_set_communicate->mpi_gather mpi_recv mpi_recv proc~lagrangian_set_communicate->mpi_recv mpi_send mpi_send proc~lagrangian_set_communicate->mpi_send proc~lagrangian_set_recycle lagrangian_set%lagrangian_set_Recycle proc~lagrangian_set_communicate->proc~lagrangian_set_recycle proc~lagrangian_set_resize lagrangian_set%lagrangian_set_Resize proc~lagrangian_set_communicate->proc~lagrangian_set_resize proc~lagrangian_set_recycle->proc~lagrangian_set_resize

Source Code

    impure subroutine solid_set_Communicate(this)
      !> Communicates markers of all solids in this set.
      implicit none
      class(solid_set), intent(inout) :: this                                  !! A collection of solids
      ! Work variables
      integer :: n

      do n=1,this%count
        call this%p(n)%Communicate
      end do

      return
    end subroutine solid_set_Communicate