mask /= mv2_intra_node_knomial_factor;
}
}
-
+ xbt_free(reqarray);
+ xbt_free(starray);
return mpi_errno;
}
*/
//if (is_homogeneous) {
type_size=smpi_datatype_size(datatype);
- //} /*else {*/
+ //}
+/* else {*/
/* MPIR_Pack_size_impl(1, datatype, &type_size);*/
/* }*/
nbytes = (size_t) (count) * (type_size);
) {
if (!is_contig || !is_homogeneous) {
- tmp_buf=(void *)xbt_malloc(nbytes);
+ tmp_buf=(void *)smpi_get_tmp_sendbuffer(nbytes);
/* TODO: Pipeline the packing and communication */
// position = 0;