parallel_obj_RankIsRoot Function

private pure function parallel_obj_RankIsRoot(this) result(val)

Determines if this rank is the root rank.

Type Bound

parallel_obj

Arguments

Type IntentOptional Attributes Name
class(parallel_obj), intent(in) :: this

Parallel object

Return Value logical

Result


Called by

proc~~parallel_obj_rankisroot~~CalledByGraph proc~parallel_obj_rankisroot parallel_obj%parallel_obj_RankIsRoot proc~eulerian_set_readhdf5 eulerian_set%eulerian_set_ReadHDF5 proc~eulerian_set_readhdf5->proc~parallel_obj_rankisroot proc~eulerian_set_writehdf5 eulerian_set%eulerian_set_WriteHDF5 proc~eulerian_set_writehdf5->proc~parallel_obj_rankisroot proc~hdf5_obj_open hdf5_obj%hdf5_obj_Open proc~hdf5_obj_open->proc~parallel_obj_rankisroot proc~marker_set_computesolidvolfrac marker_set%marker_set_ComputeSolidVolFrac proc~marker_set_computesolidvolfrac->proc~parallel_obj_rankisroot proc~marker_set_loadstl marker_set%marker_set_LoadSTL proc~marker_set_loadstl->proc~parallel_obj_rankisroot proc~marker_set_writehdf5 marker_set%marker_set_WriteHDF5 proc~marker_set_writehdf5->proc~parallel_obj_rankisroot proc~monitor_set_create monitor_set%monitor_set_Create proc~monitor_set_create->proc~parallel_obj_rankisroot proc~monitor_set_info monitor_set%monitor_set_Info proc~monitor_set_info->proc~parallel_obj_rankisroot proc~monitor_set_print monitor_set%monitor_set_Print proc~monitor_set_print->proc~parallel_obj_rankisroot proc~monitor_set_set monitor_set%monitor_set_Set proc~monitor_set_set->proc~parallel_obj_rankisroot proc~particle_set_writehdf5 particle_set%particle_set_WriteHDF5 proc~particle_set_writehdf5->proc~parallel_obj_rankisroot proc~respart_set_writehdf5 ResPart_set%ResPart_set_WriteHDF5 proc~respart_set_writehdf5->proc~parallel_obj_rankisroot proc~respart_set_writehdf5->proc~marker_set_writehdf5 proc~silo_obj_final silo_obj%silo_obj_Final proc~silo_obj_final->proc~parallel_obj_rankisroot proc~silo_obj_init silo_obj%silo_obj_Init proc~silo_obj_init->proc~parallel_obj_rankisroot proc~silo_obj_newtimestep silo_obj%silo_obj_NewTimeStep proc~silo_obj_newtimestep->proc~parallel_obj_rankisroot proc~silo_obj_writegrid silo_obj%silo_obj_WriteGrid proc~silo_obj_writegrid->proc~parallel_obj_rankisroot proc~silo_obj_writelagrangianmesh silo_obj%silo_obj_WriteLagrangianMesh proc~silo_obj_writelagrangianmesh->proc~parallel_obj_rankisroot proc~silo_obj_writescalar1d silo_obj%silo_obj_WriteScalar1D proc~silo_obj_writescalar1d->proc~parallel_obj_rankisroot proc~silo_obj_writescalar3d silo_obj%silo_obj_WriteScalar3D proc~silo_obj_writescalar3d->proc~parallel_obj_rankisroot proc~cdifs_obj_advancesolutioncorrector cdifs_obj_AdvanceSolutionCorrector proc~cdifs_obj_advancesolutioncorrector->proc~monitor_set_set proc~cdifs_obj_flowupdatemonitor cdifs_obj_FlowUpdateMonitor proc~cdifs_obj_flowupdatemonitor->proc~monitor_set_set proc~cdifs_obj_monitor cdifs_obj_Monitor proc~cdifs_obj_monitor->proc~monitor_set_set proc~cdifs_obj_monitor->proc~cdifs_obj_flowupdatemonitor proc~respart_set_updatemonitor ResPart_set%ResPart_set_UpdateMonitor proc~cdifs_obj_monitor->proc~respart_set_updatemonitor proc~cdifs_obj_preparesolvermonitor cdifs_obj_PrepareSolverMonitor proc~cdifs_obj_preparesolvermonitor->proc~monitor_set_create proc~cdifs_obj_preparesolvermonitor->proc~monitor_set_set proc~respart_set_createmonitor ResPart_set%ResPart_set_CreateMonitor proc~cdifs_obj_preparesolvermonitor->proc~respart_set_createmonitor proc~eulerian_set_writesilo eulerian_set%eulerian_set_WriteSILO proc~eulerian_set_writesilo->proc~silo_obj_final proc~eulerian_set_writesilo->proc~silo_obj_init proc~eulerian_set_writesilo->proc~silo_obj_newtimestep proc~eulerian_set_writesilo->proc~silo_obj_writegrid proc~grans_obj_monitor grans_obj_monitor proc~grans_obj_monitor->proc~monitor_set_set proc~grans_obj_monitor->proc~respart_set_updatemonitor proc~grans_obj_preparesolvermonitor grans_obj_PrepareSolverMonitor proc~grans_obj_preparesolvermonitor->proc~monitor_set_create proc~grans_obj_preparesolvermonitor->proc~monitor_set_set proc~grans_obj_preparesolvermonitor->proc~respart_set_createmonitor proc~particle_set_createmonitor particle_set%particle_set_CreateMonitor proc~particle_set_createmonitor->proc~monitor_set_create proc~particle_set_createmonitor->proc~monitor_set_set proc~particle_set_updatemonitor particle_set%particle_set_UpdateMonitor proc~particle_set_updatemonitor->proc~monitor_set_set proc~particle_set_writesilo particle_set%particle_set_WriteSilo proc~particle_set_writesilo->proc~silo_obj_final proc~particle_set_writesilo->proc~silo_obj_init proc~particle_set_writesilo->proc~silo_obj_newtimestep proc~particle_set_writesilo->proc~silo_obj_writelagrangianmesh proc~respart_set_createmonitor->proc~monitor_set_create proc~respart_set_createmonitor->proc~monitor_set_set proc~respart_set_updatemonitor->proc~monitor_set_set proc~respart_set_writesilo ResPart_set%ResPart_set_WriteSILO proc~respart_set_writesilo->proc~silo_obj_final proc~respart_set_writesilo->proc~silo_obj_init proc~respart_set_writesilo->proc~silo_obj_newtimestep proc~respart_set_writesilo->proc~silo_obj_writelagrangianmesh proc~solid_set_writehdf5 solid_set%solid_set_WriteHDF5 proc~solid_set_writehdf5->proc~marker_set_writehdf5 interface~cdifs_obj_monitor cdifs_obj%cdifs_obj_Monitor interface~cdifs_obj_monitor->proc~cdifs_obj_monitor interface~grans_obj_monitor grans_obj%grans_obj_Monitor interface~grans_obj_monitor->proc~grans_obj_monitor proc~cdifs_obj_advancesolution cdifs_obj_AdvanceSolution proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutioncorrector proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolvermonitor proc~cdifs_obj_preparesolver->interface~cdifs_obj_monitor interface~cdifs_obj_writeoutputdata cdifs_obj%cdifs_obj_WriteOutputData proc~cdifs_obj_preparesolver->interface~cdifs_obj_writeoutputdata proc~cdifs_obj_writeoutputdata cdifs_obj_WriteOutputData proc~cdifs_obj_writeoutputdata->proc~respart_set_writesilo proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvermonitor proc~grans_obj_preparesolver->interface~grans_obj_monitor interface~grans_obj_writeoutputdata grans_obj%grans_obj_WriteOutputData proc~grans_obj_preparesolver->interface~grans_obj_writeoutputdata proc~grans_obj_writeoutputdata grans_obj_WriteOutputData proc~grans_obj_writeoutputdata->proc~respart_set_writesilo interface~cdifs_obj_advancesolution cdifs_obj%cdifs_obj_AdvanceSolution interface~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolution interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~cdifs_obj_writeoutputdata->proc~cdifs_obj_writeoutputdata interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver interface~grans_obj_writeoutputdata->proc~grans_obj_writeoutputdata

Source Code

    pure function parallel_obj_RankIsRoot(this) result (val)
      !> Determines if this rank is the root rank.
      implicit none
      class(parallel_obj), intent(in) :: this                                  !! Parallel object
      logical                         :: val                                   !! Result

      if (this%rank%mine.eq.this%RootRank) then
        val = .true.
      else
        val = .false.
      end if

      return
    end function parallel_obj_RankIsRoot