4d47302179
https://svn.boost.org/svn/boost/trunk ........ r43417 | danieljames | 2008-02-26 22:04:55 +0000 (Tue, 26 Feb 2008) | 2 lines Fix a link to Boost.Bimap. ........ r43418 | danieljames | 2008-02-26 22:07:25 +0000 (Tue, 26 Feb 2008) | 2 lines Change another link that's no longer in the repository to link to the website. ........ r43422 | danieljames | 2008-02-27 18:51:14 +0000 (Wed, 27 Feb 2008) | 1 line Fix broken copyright urls. Fixes #1573. ........ r43423 | danieljames | 2008-02-27 19:22:01 +0000 (Wed, 27 Feb 2008) | 1 line Fix incorrect links to copyright of the form 'http:#www.boost.org ........ [SVN r43425]
43 lines
1.5 KiB
Python
43 lines
1.5 KiB
Python
# Copyright (C) 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)
|
|
|
|
# Test basic communication.
|
|
|
|
import boost.parallel.mpi as mpi
|
|
|
|
def ring_test(comm, value, kind, root):
|
|
next_peer = (comm.rank + 1) % comm.size;
|
|
prior_peer = (comm.rank + comm.size - 1) % comm.size;
|
|
|
|
if comm.rank == root:
|
|
print ("Passing %s around a ring from root %d..." % (kind, root)),
|
|
comm.send(next_peer, 0, value)
|
|
(other_value, stat) = comm.recv(return_status = True)
|
|
assert value == other_value
|
|
assert stat.source == prior_peer
|
|
assert stat.tag == 0
|
|
else:
|
|
msg = comm.probe()
|
|
other_value = comm.recv(msg.source, msg.tag)
|
|
assert value == other_value
|
|
comm.send(next_peer, 0, other_value)
|
|
|
|
comm.barrier()
|
|
if comm.rank == root:
|
|
print "OK"
|
|
pass
|
|
|
|
if mpi.world.size < 2:
|
|
print "ERROR: ring_test.py must be executed with more than one process"
|
|
mpi.world.abort(-1);
|
|
|
|
ring_test(mpi.world, 17, 'integers', 0)
|
|
ring_test(mpi.world, 17, 'integers', 1)
|
|
ring_test(mpi.world, 'Hello, World!', 'string', 0)
|
|
ring_test(mpi.world, 'Hello, World!', 'string', 1)
|
|
ring_test(mpi.world, ['Hello', 'MPI', 'Python', 'World'], 'list of strings', 0)
|
|
ring_test(mpi.world, ['Hello', 'MPI', 'Python', 'World'], 'list of strings', 1)
|