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_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~setupcasefields~2 SetUpCaseFields proc~setupcasefields~2->proc~parallel_obj_rankisroot proc~setupcasefields~3 SetUpCaseFields proc~setupcasefields~3->proc~parallel_obj_rankisroot proc~setupcasefields~6 SetUpCaseFields proc~setupcasefields~6->proc~parallel_obj_rankisroot proc~setupcasefields~7 SetUpCaseFields proc~setupcasefields~7->proc~parallel_obj_rankisroot proc~setupcasefields~8 SetUpCaseFields proc~setupcasefields~8->proc~parallel_obj_rankisroot proc~setupcaseib SetUpCaseIB proc~setupcaseib->proc~parallel_obj_rankisroot proc~setupcaseib~2 SetUpCaseIB proc~setupcaseib~2->proc~parallel_obj_rankisroot proc~setupcaseib~3 SetUpCaseIB proc~setupcaseib~3->proc~parallel_obj_rankisroot proc~setupcaseib~4 SetUpCaseIB proc~setupcaseib~4->proc~parallel_obj_rankisroot proc~setupcasepp SetUpCasePP proc~setupcasepp->proc~parallel_obj_rankisroot proc~setupcasepp~2 SetUpCasePP proc~setupcasepp~2->proc~parallel_obj_rankisroot proc~setupcaserespart SetUpCaseResPart proc~setupcaserespart->proc~parallel_obj_rankisroot proc~setupcaserespart~2 SetUpCaseResPart proc~setupcaserespart~2->proc~parallel_obj_rankisroot proc~setupcaserp SetUpCaseRP proc~setupcaserp->proc~parallel_obj_rankisroot proc~setupcaserp~2 SetUpCaseRP proc~setupcaserp~2->proc~parallel_obj_rankisroot proc~setupcaserp~3 SetUpCaseRP proc~setupcaserp~3->proc~parallel_obj_rankisroot 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_ibvfupdatemonitor cdifs_obj_ibVFUpdateMonitor proc~cdifs_obj_ibvfupdatemonitor->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~cdifs_obj_monitor->proc~cdifs_obj_ibvfupdatemonitor 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_ibvfupdatemonitor grans_obj_ibVFUpdateMonitor proc~grans_obj_ibvfupdatemonitor->proc~monitor_set_set proc~grans_obj_monitor grans_obj_monitor proc~grans_obj_monitor->proc~monitor_set_set proc~grans_obj_monitor->proc~grans_obj_ibvfupdatemonitor 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 program~main main program~main->proc~setupcaserespart program~main~10 main program~main~10->proc~setupcasefields~6 program~main~11 main program~main~11->proc~setupcasefields~7 program~main~12 main program~main~12->proc~setupcasefields~8 program~main~14 main program~main~14->proc~setupcaseib~4 program~main~2 main program~main~2->proc~setupcaseib program~main~2->proc~setupcaserp program~main~3 main program~main~3->proc~setupcasefields~2 program~main~4 main program~main~4->proc~setupcaseib~2 program~main~4->proc~setupcaserp~2 program~main~5 main program~main~5->proc~setupcasefields~3 program~main~6 main program~main~6->proc~setupcasepp program~main~6->proc~setupcaserp~3 program~main~7 main program~main~7->proc~setupcasepp~2 program~main~9 main program~main~9->proc~setupcaseib~3 program~main~9->proc~setupcaserespart~2 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