win_get_handle Function

private function win_get_handle(this) result(mpi_win_out)

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(win_t),	intent(in)			::	this

Return Value type(MPI_Win)

Source Code

   function win_get_handle(this) result(mpi_win_out)
      class(win_t), intent(in) :: this
      type(MPI_Win) :: mpi_win_out

      if (.not. this%is_valid) then
         error stop "Cannot get MPI_Win from null window"
      end if
      mpi_win_out = this%m_win
   end function win_get_handle