comm_get Function

private function comm_get(this) result(mpi_comm_out)

Type Bound

comm_t

Arguments

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

Return Value integer


Called by

proc~~comm_get~2~~CalledByGraph proc~comm_get~2 comm_t%comm_get proc~allreduce_dp_array_to~2 allreduce_dp_array_to proc~allreduce_dp_array_to~2->proc~comm_get~2 proc~allreduce_dp_array~2 allreduce_dp_array proc~allreduce_dp_array~2->proc~comm_get~2 proc~allreduce_dp_to~2 allreduce_dp_to proc~allreduce_dp_to~2->proc~comm_get~2 proc~allreduce_dp~2 allreduce_dp proc~allreduce_dp~2->proc~comm_get~2 proc~allreduce_i32_array~2 allreduce_i32_array proc~allreduce_i32_array~2->proc~comm_get~2 proc~allreduce_i32~2 allreduce_i32 proc~allreduce_i32~2->proc~comm_get~2 proc~allreduce_sp_array_to~2 allreduce_sp_array_to proc~allreduce_sp_array_to~2->proc~comm_get~2 proc~allreduce_sp_array~2 allreduce_sp_array proc~allreduce_sp_array~2->proc~comm_get~2 proc~allreduce_sp_to~2 allreduce_sp_to proc~allreduce_sp_to~2->proc~comm_get~2 proc~allreduce_sp~2 allreduce_sp proc~allreduce_sp~2->proc~comm_get~2 proc~comm_split_shared~2 comm_t%comm_split_shared proc~comm_split_shared~2->proc~comm_get~2 proc~create_win_allocate_dp_1d~2 create_win_allocate_dp_1d proc~create_win_allocate_dp_1d~2->proc~comm_get~2 proc~create_win_allocate_dp_2d~2 create_win_allocate_dp_2d proc~create_win_allocate_dp_2d~2->proc~comm_get~2 proc~create_win_allocate_i32_1d~2 create_win_allocate_i32_1d proc~create_win_allocate_i32_1d~2->proc~comm_get~2 proc~create_win_allocate_i64_1d~2 create_win_allocate_i64_1d proc~create_win_allocate_i64_1d~2->proc~comm_get~2 proc~create_win_allocate_sp_1d~2 create_win_allocate_sp_1d proc~create_win_allocate_sp_1d~2->proc~comm_get~2 proc~create_win_dp_array~2 create_win_dp_array proc~create_win_dp_array~2->proc~comm_get~2 proc~create_win_dynamic~2 create_win_dynamic proc~create_win_dynamic~2->proc~comm_get~2 interface~allreduce~2 allreduce interface~allreduce~2->proc~allreduce_dp_array_to~2 interface~allreduce~2->proc~allreduce_dp_array~2 interface~allreduce~2->proc~allreduce_dp_to~2 interface~allreduce~2->proc~allreduce_dp~2 interface~allreduce~2->proc~allreduce_i32_array~2 interface~allreduce~2->proc~allreduce_i32~2 interface~allreduce~2->proc~allreduce_sp_array_to~2 interface~allreduce~2->proc~allreduce_sp_array~2 interface~allreduce~2->proc~allreduce_sp_to~2 interface~allreduce~2->proc~allreduce_sp~2 interface~win_allocate~2 win_allocate interface~win_allocate~2->proc~create_win_allocate_dp_1d~2 interface~win_allocate~2->proc~create_win_allocate_dp_2d~2 interface~win_allocate~2->proc~create_win_allocate_i32_1d~2 interface~win_allocate~2->proc~create_win_allocate_i64_1d~2 interface~win_allocate~2->proc~create_win_allocate_sp_1d~2 interface~win_create_dynamic~2 win_create_dynamic interface~win_create_dynamic~2->proc~create_win_dynamic~2 interface~win_create~2 win_create interface~win_create~2->proc~create_win_dp_array~2

Source Code

   function comm_get(this) result(mpi_comm_out)
      class(comm_t), intent(in) :: this
      integer :: mpi_comm_out

      if (.not. this%is_valid) then
         error stop "Cannot get MPI_Comm from null Comm"
      end if
      mpi_comm_out = this%m_comm
   end function comm_get