lagrangian_set_UpdateCount Subroutine

private impure subroutine lagrangian_set_UpdateCount(this)

Updates the total count of Lagrangian objects.

Type Bound

lagrangian_set

Arguments

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

A set of Lagrangian objects

Calls

proc~~lagrangian_set_updatecount~~CallsGraph proc~lagrangian_set_updatecount lagrangian_set%lagrangian_set_UpdateCount mpi_allgather mpi_allgather proc~lagrangian_set_updatecount->mpi_allgather

Called by

proc~~lagrangian_set_updatecount~~CalledByGraph proc~lagrangian_set_updatecount lagrangian_set%lagrangian_set_UpdateCount proc~marker_set_writeh5hut marker_set%marker_set_WriteH5HUT proc~marker_set_writeh5hut->proc~lagrangian_set_updatecount proc~marker_set_writehdf5 marker_set%marker_set_WriteHDF5 proc~marker_set_writehdf5->proc~lagrangian_set_updatecount proc~particle_set_writeh5hut particle_set%particle_set_WriteH5HUT proc~particle_set_writeh5hut->proc~lagrangian_set_updatecount proc~particle_set_writehdf5 particle_set%particle_set_WriteHDF5 proc~particle_set_writehdf5->proc~lagrangian_set_updatecount proc~respart_set_regroup ResPart_set%ResPart_set_Regroup proc~respart_set_regroup->proc~lagrangian_set_updatecount proc~respart_set_writeh5hut ResPart_set%ResPart_set_WriteH5HUT proc~respart_set_writeh5hut->proc~lagrangian_set_updatecount proc~respart_set_writeh5hut->proc~marker_set_writeh5hut proc~respart_set_writehdf5 ResPart_set%ResPart_set_WriteHDF5 proc~respart_set_writehdf5->proc~lagrangian_set_updatecount proc~respart_set_writehdf5->proc~marker_set_writehdf5 proc~cdifs_obj_advancesolutionrp cdifs_obj_AdvanceSolutionRP proc~cdifs_obj_advancesolutionrp->proc~respart_set_regroup proc~respart_set_gethydroforces ResPart_set%ResPart_set_GetHydroForces proc~cdifs_obj_advancesolutionrp->proc~respart_set_gethydroforces proc~grans_obj_advancesolution grans_obj_AdvanceSolution proc~grans_obj_advancesolution->proc~respart_set_regroup proc~respart_set_gethydroforces->proc~respart_set_regroup proc~solid_set_writehdf5 solid_set%solid_set_WriteHDF5 proc~solid_set_writehdf5->proc~marker_set_writehdf5 interface~grans_obj_advancesolution grans_obj%grans_obj_AdvanceSolution interface~grans_obj_advancesolution->proc~grans_obj_advancesolution proc~cdifs_obj_advancesolution cdifs_obj_AdvanceSolution proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutionrp interface~cdifs_obj_advancesolution cdifs_obj%cdifs_obj_AdvanceSolution interface~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolution

Source Code

    impure subroutine lagrangian_set_UpdateCount(this)
      !> Updates the total count of Lagrangian objects.
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects
      ! Work variables
      integer :: ierr

      associate(mpi=>this%parallel)
        call MPI_ALLGATHER(this%count_,1,mpi%INTEGER,this%count_proc,1,mpi%INTEGER,mpi%comm%g,ierr)
      end associate
      this%count=sum(this%count_proc)

      return
    end subroutine lagrangian_set_UpdateCount