[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