[mpich2-commits] r7747 - mpich2/trunk/src/mpi/coll

balaji at mcs.anl.gov balaji at mcs.anl.gov
Tue Jan 18 16:46:16 CST 2011


Author: balaji
Date: 2011-01-18 16:46:16 -0600 (Tue, 18 Jan 2011)
New Revision: 7747

Modified:
   mpich2/trunk/src/mpi/coll/alltoallw.c
Log:
Missed out changes to alltoallw in r7746.

Modified: mpich2/trunk/src/mpi/coll/alltoallw.c
===================================================================
--- mpich2/trunk/src/mpi/coll/alltoallw.c	2011-01-18 22:45:07 UTC (rev 7746)
+++ mpich2/trunk/src/mpi/coll/alltoallw.c	2011-01-18 22:46:16 UTC (rev 7747)
@@ -267,7 +267,7 @@
     int src, dst, rank, sendcount, recvcount;
     char *sendaddr, *recvaddr;
     MPI_Datatype sendtype, recvtype;
-    MPI_Aint send_size, recv_size;
+    MPI_Aint sendtype_size, recvtype_size;
     MPI_Comm comm;
     
     local_size = comm_ptr->local_size; 
@@ -306,12 +306,12 @@
             sendtype = sendtypes[dst];
         }
 
-        MPID_Datatype_get_size_macro(sendtypes[dst], send_size);
-        MPID_Datatype_get_size_macro(recvtypes[src], recv_size);
+        MPID_Datatype_get_size_macro(sendtypes[dst], sendtype_size);
+        MPID_Datatype_get_size_macro(recvtypes[src], recvtype_size);
 
-        if (sendcount * send_size == 0)
+        if (sendcount * sendtype_size == 0)
             dst = MPI_PROC_NULL;
-        if (recvcount * recv_size == 0)
+        if (recvcount * recvtype_size == 0)
             src = MPI_PROC_NULL;
         mpi_errno = MPIC_Sendrecv(sendaddr, sendcount, sendtype, 
                                   dst, MPIR_ALLTOALLW_TAG, recvaddr, 



More information about the mpich2-commits mailing list