CHECK_NEGATIVE(2, MPI_ERR_OTHER, size)
CHECK_NEGATIVE(3, MPI_ERR_OTHER, disp_unit)
void* ptr = xbt_malloc(size);
- if(ptr==nullptr)
- return MPI_ERR_NO_MEM;
smpi_bench_end();
*static_cast<void**>(base) = ptr;
*win = new simgrid::smpi::Win( ptr, size, disp_unit, info, comm,1);
int rank = comm->rank();
if(rank==0){
ptr = xbt_malloc(size*comm->size());
- if(ptr==nullptr)
- return MPI_ERR_NO_MEM;
}
smpi_bench_end();
simgrid::smpi::colls::bcast(&ptr, sizeof(void*), MPI_BYTE, 0, comm);
MPI_Win PMPI_Win_f2c(MPI_Fint win){
if(win==-1)
return MPI_WIN_NULL;
- return static_cast<MPI_Win>(simgrid::smpi::Win::f2c(win));
+ return simgrid::smpi::Win::f2c(win);
}
MPI_Fint PMPI_Win_c2f(MPI_Win win){