Example #1
0
        /// <summary>
        /// ctor.
        /// </summary>
        /// <param name="master"></param>
        /// <param name="vector">a vector of length J*<paramref name="ItemsPerCell"/>, where J is the number of local cells (including ghost)</param>
        /// <param name="ItemsPerCell">the number of items that should be transmitted/received per cell</param>
        public VectorTransceiver(IGridData master, T vector, int ItemsPerCell)
        {
            CheckItemTypeRecursive(typeof(V));

            int J = master.iLogicalCells.Count;

            if (vector.Count != ItemsPerCell * J)
            {
                throw new ArgumentException("wrong length of input vector.");
            }

            m_ItemsPerCell = ItemsPerCell;
            m_vector       = vector;
            m_master       = master;

            //sms = new SerialisationMessenger(csMPI.Raw._COMM.WORLD);

            //// set comm. paths
            //sms.SetCommPathsAndCommit(master.Parallel.ProcessesToSendTo);

            var Para    = m_master.iParallel;
            var sndProc = Para.ProcessesToSendTo;
            var rvcProc = Para.ProcessesToReceiveFrom;

            SendBuffers = new V[sndProc.Length][];
            for (int i = 0; i < SendBuffers.Length; i++)
            {
                int p = sndProc[i];
                SendBuffers[i] = new V[Para.SendCommLists[p].Length * m_ItemsPerCell];
            }
            SendBufferPin = new GCHandle[sndProc.Length];
            rqst          = new MPI_Request[sndProc.Length + rvcProc.Length];
            staTussies    = new MPI_Status[rqst.Length];
            if (!(typeof(T).IsArray))
            {
                RcvBuffer = new V[rvcProc.Length][];
                for (int i = 0; i < RcvBuffer.Length; i++)
                {
                    int p = rvcProc[i];
                    RcvBuffer[i] = new V[Para.RcvCommListsNoOfItems[p] * m_ItemsPerCell];
                }
                RcvBufferPin = new GCHandle[RcvBuffer.Length];
            }
        }
Example #2
0
        /// <summary>
        /// ctor
        /// </summary>
        /// <param name="comm"></param>
        //// <typeparam name="t">the primitive type of the message; must be a value-type;</typeparam>
        public Many2ManyMessenger(MPI.Wrappers.MPI_Comm comm)
        {
            m_Comm = comm;
            MPI.Wrappers.csMPI.Raw.Comm_Size(m_Comm, out size);
            MPI.Wrappers.csMPI.Raw.Comm_Rank(m_Comm, out MyRank);

            m_MyCommPaths  = new int[size];
            m_AllCommPaths = new int[size, size];

            m_ReceiveBuffers = new Buffer[size];
            m_SendBuffers    = new Buffer[size];

            m_Requests        = new MPI_Request[size * 2];
            m_ArrayOfStatuses = new MPI_Status[m_Requests.Length];


            // check item type
            m_ItemType = typeof(ItemType);
            CheckItemTypeRecursive(m_ItemType);
            m_ItemSize = Marshal.SizeOf(m_ItemType);
        }
Example #3
0
 public static unsafe extern int MPI_Testsome(int incount, MPI_Request[] array_of_requests, 
                                              out int outcount, int[] array_of_indices, MPI_Status[] array_of_statuses);
Example #4
0
 public static unsafe extern int MPI_Probe(int source, int tag, MPI_Comm comm, out MPI_Status status);
Example #5
0
 public static unsafe extern int MPI_Waitall(int count, MPI_Request* array_of_requests, MPI_Status[] array_of_statuses);
Example #6
0
 public static unsafe extern int MPI_Testall(int count, MPI_Request* array_of_requests, out int flag, MPI_Status[] array_of_statuses);
Example #7
0
 public static unsafe extern int MPI_Test(ref MPI_Request request, out int flag, out MPI_Status status);
Example #8
0
 public static unsafe extern int MPI_Testany(int count, MPI_Request[] array_of_requests, out int index, out int flag, out MPI_Status status);
Example #9
0
 public static unsafe extern int MPI_Wait(ref MPI_Request request, out MPI_Status status);
Example #10
0
 public static unsafe extern int MPI_Get_count(ref MPI_Status status, MPI_Datatype datatype, out int count);
Example #11
0
 public static unsafe extern int MPI_Test_cancelled(ref MPI_Status status, out int flag);
Example #12
0
 public static unsafe extern int MPI_Sendrecv(IntPtr sendbuf, int sendcount, MPI_Datatype senddatatype, int dest, int sendtag,
                                              IntPtr recvbuf, int recvcount, MPI_Datatype recvdatatype, int source, int recvtag, MPI_Comm comm, out MPI_Status status);
Example #13
0
 public static unsafe extern int MPI_Recv(IntPtr buf, int count, MPI_Datatype datatype, int source, int tag, MPI_Comm comm, out MPI_Status status);