コード例 #1
0
        static void Main(string[] args)
        {
            using (new MPI.Environment(ref args))
            {
                Intracommunicator comm = Communicator.world;
                string[]          data = new string[comm.Size];
                for (int i = 0; i < comm.Size; i++)
                {
                    data[i] = "This string came from Rank " + comm.Rank;
                }

                string[] results = comm.Alltoall(data);

                if (comm.Rank == 0)
                {
                    Console.WriteLine("The root's array contains: ");
                    foreach (string x in results)
                    {
                        Console.WriteLine(x);
                    }
                }
            }
        }
コード例 #2
0
ファイル: AlltoallTest.cs プロジェクト: xiaomuwing/MPI.NET
    public static void DoTest(string[] args)
    {
        using (new MPI.Environment(ref args))
        {
            Intracommunicator world = Communicator.world;

            if (world.Rank == 0)
            {
                System.Console.Write("Testing all-to-all on integers...");
            }
            int[] sendInts = new int[world.Size];
            for (int dest = 0; dest < world.Size; ++dest)
            {
                sendInts[dest] = world.Size * world.Rank + dest;
            }
            int[] recvInts = world.Alltoall(sendInts);
            for (int source = 0; source < world.Size; ++source)
            {
                MPIDebug.Assert(recvInts[source] == world.Size * source + world.Rank);
            }
            if (world.Rank == 0)
            {
                System.Console.WriteLine(" done.");
            }

            if (world.Rank == 0)
            {
                System.Console.Write("Testing all-to-all on strings...");
            }
            string[] sendStrings = new string[world.Size];
            for (int dest = 0; dest < world.Size; ++dest)
            {
                sendStrings[dest] = sendInts[dest].ToString();
            }
            string[] recvStrings = world.Alltoall(sendStrings);
            for (int source = 0; source < world.Size; ++source)
            {
                MPIDebug.Assert(recvStrings[source] == recvInts[source].ToString());
            }
            if (world.Rank == 0)
            {
                System.Console.WriteLine(" done.");
            }

            if (world.Rank == 0)
            {
                System.Console.Write("Testing AlltoallFlattened with integers...");
            }
            int   size       = Communicator.world.Size;
            int   rank       = Communicator.world.Rank;
            int[] outData    = new int[(size * size - size) / 2];
            int[] inData     = new int[rank * size];
            int[] sendCounts = new int[size];
            int[] recvCounts = new int[size];
            for (int i = 0; i < rank * size; i++)
            {
                inData[i] = rank;
            }
            for (int i = 0; i < size; i++)
            {
                sendCounts[i] = rank;
            }
            for (int i = 0; i < size; i++)
            {
                recvCounts[i] = i;
            }
            Communicator.world.AlltoallFlattened(inData, sendCounts, recvCounts, ref outData);
            int p = 0;
            for (int i = 0; i < size; ++i)
            {
                if (recvCounts[i] > 0)
                {
                    for (int j = 0; j < i; j++)
                    {
                        MPIDebug.Assert(outData[p] == i);
                    }
                }
                p += recvCounts[i];
            }
            if (world.Rank == 0)
            {
                System.Console.WriteLine(" done.");
            }

            if (world.Rank == 0)
            {
                System.Console.Write("Testing AlltoallFlattened with strings...");
            }
            string[] outData_s = new string[(size * size - size) / 2];
            string[] inData_s  = new string[rank * size];
            for (int i = 0; i < rank * size; i++)
            {
                inData_s[i] = rank.ToString();
            }
            Communicator.world.AlltoallFlattened(inData_s, sendCounts, recvCounts, ref outData_s);
            p = 0;
            for (int i = 0; i < size; ++i)
            {
                if (recvCounts[i] > 0)
                {
                    for (int j = 0; j < i; j++)
                    {
                        MPIDebug.Assert(outData_s[p] == i.ToString());
                    }
                }
                p += recvCounts[i];
            }
            if (world.Rank == 0)
            {
                System.Console.WriteLine(" done.");
            }
        }
    }