#include #include #include #include #include #include namespace mpi = boost::mpi; template bool test(mpi::communicator const& comm, std::vector const& ref, bool iswap, bool alloc) { int rank = comm.rank(); if (rank == 0) { if (iswap) { std::cout << "Blockin send, non blocking receive.\n"; } else { std::cout << "Non blockin send, blocking receive.\n"; } if (alloc) { std::cout << "Explicitly allocate space for the receiver.\n"; } else { std::cout << "Do not explicitly allocate space for the receiver.\n"; } } if (rank == 0) { std::vector data; if (alloc) { data.resize(ref.size()); } if (iswap) { mpi::request req = comm.irecv(1, 0, data); req.wait(); } else { comm.recv(1, 0, data); } std::cout << "Process 0 received " << data.size() << " elements :" << std::endl; std::copy(data.begin(), data.end(), std::ostream_iterator(std::cout, " ")); std::cout << std::endl; std::cout << "While expecting " << ref.size() << " elements :" << std::endl; std::copy(ref.begin(), ref.end(), std::ostream_iterator(std::cout, " ")); std::cout << std::endl; return (data == ref); } else { if (rank == 1) { std::vector vec = ref; if (iswap) { comm.send(0, 0, vec); } else { mpi::request req = comm.isend(0, 0, vec); req.wait(); } } return true; } } int test_main(int argc, char **argv) { mpi::environment env(argc, argv); mpi::communicator world; std::vector integers(13); // don't assume we're lucky for(int i = 0; i < int(integers.size()); ++i) { integers[i] = i; } std::vector strings(13); // don't assume we're lucky for(int i = 0; i < int(strings.size()); ++i) { std::ostringstream fmt; fmt << "S" << i; strings[i] = fmt.str(); } bool block_to_non_block = true; bool non_block_to_block = true; if (argc == 2) { if (std::string(argv[1]) == "b2nb") { non_block_to_block = false; } else if (std::string(argv[1]) == "nb2b") { block_to_non_block = false; } else { if (world.rank() == 0) { std::cerr << "Usage: " << argv[0] << " [()); return passed ? 0 : 1; }