146 lines
		
	
	
		
			4.3 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			146 lines
		
	
	
		
			4.3 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
// Copyright (C) 2005, 2006 Douglas Gregor <doug.gregor -at- gmail.com>.
 | 
						|
 | 
						|
// Use, modification and distribution is subject to the Boost Software
 | 
						|
// License, Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at
 | 
						|
// http://www.boost.org/LICENSE_1_0.txt)
 | 
						|
 | 
						|
// Message Passing Interface 1.1 -- Section 4.4. Broadcast
 | 
						|
#ifndef BOOST_MPI_BROADCAST_HPP
 | 
						|
#define BOOST_MPI_BROADCAST_HPP
 | 
						|
 | 
						|
#include <boost/mpi/collectives_fwd.hpp>
 | 
						|
#include <boost/mpi/exception.hpp>
 | 
						|
#include <boost/mpi/datatype.hpp>
 | 
						|
#include <boost/mpi/communicator.hpp>
 | 
						|
 | 
						|
namespace boost { namespace mpi {
 | 
						|
 | 
						|
/************************************************************************
 | 
						|
 * Specializations                                                      *
 | 
						|
 ************************************************************************/
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
BOOST_MPI_DECL void
 | 
						|
broadcast<const packed_oarchive>(const communicator& comm,
 | 
						|
                                 const packed_oarchive& oa,
 | 
						|
                                 int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
BOOST_MPI_DECL void
 | 
						|
broadcast<packed_oarchive>(const communicator& comm, packed_oarchive& oa,
 | 
						|
                           int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
BOOST_MPI_DECL void
 | 
						|
broadcast<packed_iarchive>(const communicator& comm, packed_iarchive& ia,
 | 
						|
                           int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
BOOST_MPI_DECL void
 | 
						|
broadcast<const packed_skeleton_oarchive>(const communicator& comm,
 | 
						|
                                          const packed_skeleton_oarchive& oa,
 | 
						|
                                          int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
void
 | 
						|
broadcast<packed_skeleton_oarchive>(const communicator& comm,
 | 
						|
                                    packed_skeleton_oarchive& oa, int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
void
 | 
						|
broadcast<packed_skeleton_iarchive>(const communicator& comm,
 | 
						|
                                    packed_skeleton_iarchive& ia, int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
void broadcast<content>(const communicator& comm, content& c, int root);
 | 
						|
 | 
						|
/**
 | 
						|
 * INTERNAL ONLY
 | 
						|
 */
 | 
						|
template<>
 | 
						|
void broadcast<const content>(const communicator& comm, const content& c,
 | 
						|
                              int root);
 | 
						|
 | 
						|
/************************************************************************
 | 
						|
 * broadcast() implementation                                           *
 | 
						|
 ************************************************************************/
 | 
						|
namespace detail {
 | 
						|
  // We're sending a type that has an associated MPI datatype, so
 | 
						|
  // we'll use MPI_Bcast to do all of the work.
 | 
						|
  template<typename T>
 | 
						|
  void 
 | 
						|
  broadcast_impl(const communicator& comm, T* values, int n, int root, 
 | 
						|
                 mpl::true_)
 | 
						|
  {
 | 
						|
    BOOST_MPI_CHECK_RESULT(MPI_Bcast,
 | 
						|
                           (values, n,
 | 
						|
                            boost::mpi::get_mpi_datatype<T>(*values),
 | 
						|
                            root, MPI_Comm(comm)));
 | 
						|
  }
 | 
						|
 | 
						|
  // We're sending a type that does not have an associated MPI
 | 
						|
  // datatype, so we'll need to serialize it. Unfortunately, this
 | 
						|
  // means that we cannot use MPI_Bcast, so we'll just send from the
 | 
						|
  // root to everyone else.
 | 
						|
  template<typename T>
 | 
						|
  void
 | 
						|
  broadcast_impl(const communicator& comm, T* values, int n, int root, 
 | 
						|
                 mpl::false_)
 | 
						|
  {
 | 
						|
    if (comm.rank() == root) {
 | 
						|
      packed_oarchive oa(comm);
 | 
						|
      for (int i = 0; i < n; ++i)
 | 
						|
        oa << values[i];
 | 
						|
      broadcast(comm, oa, root);
 | 
						|
    } else {
 | 
						|
      packed_iarchive ia(comm);
 | 
						|
      broadcast(comm, ia, root);
 | 
						|
      for (int i = 0; i < n; ++i)
 | 
						|
        ia >> values[i];
 | 
						|
    }
 | 
						|
  }
 | 
						|
} // end namespace detail
 | 
						|
 | 
						|
template<typename T>
 | 
						|
void broadcast(const communicator& comm, T& value, int root)
 | 
						|
{
 | 
						|
  detail::broadcast_impl(comm, &value, 1, root, is_mpi_datatype<T>());
 | 
						|
}
 | 
						|
 | 
						|
template<typename T>
 | 
						|
void broadcast(const communicator& comm, T* values, int n, int root)
 | 
						|
{
 | 
						|
  detail::broadcast_impl(comm, values, n, root, is_mpi_datatype<T>());
 | 
						|
}
 | 
						|
 | 
						|
} } // end namespace boost::mpi
 | 
						|
 | 
						|
// If the user has already included skeleton_and_content.hpp, include
 | 
						|
// the code to broadcast skeletons and content.
 | 
						|
#ifdef BOOST_MPI_SKELETON_AND_CONTENT_HPP
 | 
						|
#  include <boost/mpi/detail/broadcast_sc.hpp>
 | 
						|
#endif
 | 
						|
 | 
						|
#endif // BOOST_MPI_BROADCAST_HPP
 |