/* Copyright (C) 2007  The Trustees of Indiana University
*
* 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)
* 
* Authors: Douglas Gregor
*          Andrew Lumsdaine
*
* This test exercises Communicator.ReduceScatter.
*/
using System;
using MPI;

class PingPong
{
    static void Main(string[] args)
    {
        using (new MPI.Environment(ref args))
        {
            Intracommunicator comm = Communicator.world;
            if (comm.Rank == 0)
            {
                Console.WriteLine("Rank 0 is alive and running on " + MPI.Environment.ProcessorName);
                for (int dest = 1; dest < comm.Size; ++dest)
                {
                    Console.Write("Pinging process with rank " + dest + "...");
                    comm.Send("Ping!", dest, 0);
                    string destHostname = comm.Receive<string>(dest, 1);
                    Console.WriteLine(" Pong!");
                    Console.WriteLine("  Rank " + dest + " is alive and running on " + destHostname);
                }
            }
            else
            {
                comm.Receive<string>(0, 0);
                comm.Send(MPI.Environment.ProcessorName, 0, 1);
            }
        }
    }
}

c:\Program Files\Microsoft MPI\Bin>mpiexec -hosts 6 10.114.22.10 1 10.114.22.20 1 10.114.22.30 1 10.114.22.40 1 10.114.22.50 1 10.114.22.60 1 \\10.114.22.10\bin\mpi_test