int MPI_Scatter(void *sendbuf, int sendcount, MPI_Datatype sendtype, void *recvbuf, int recvcount, MPI_Datatype recvtype, int root, MPI_Comm comm) { return PMPI_Scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm); }
int mod_clustering_output(ipm_mod_t* mod, int flags) { int i, j; procstats_t *allstats; get_procstats(ipm_htable, &mystats); if( task.taskid==0 ) { allstats = malloc( sizeof(procstats_t)*task.ntasks ); } PMPI_Gather( &mystats, sizeof(procstats_t), MPI_BYTE, allstats, sizeof(procstats_t), MPI_BYTE, 0, MPI_COMM_WORLD ); if( task.taskid==0 ) { cluster_by_structural(allstats); print_procstat(1, 0); for( i=0; i<task.ntasks; i++ ) { print_procstat(0, &(allstats[i])); } qsort( allstats, task.ntasks, sizeof(procstats_t), compare_procstat_by_rank); } PMPI_Scatter( allstats, sizeof(procstats_t), MPI_BYTE, &mystats, sizeof(procstats_t), MPI_BYTE, 0, MPI_COMM_WORLD); }
/*==========================================================================*/ int MPI_Scatter (void *sendbuf, int sendcnt, MPI_Datatype sendtype, void *recvbuf, int recvcnt, MPI_Datatype recvtype, int root, MPI_Comm comm) { _MPI_COVERAGE(); return PMPI_Scatter(sendbuf, sendcnt, sendtype, recvbuf, recvcnt, recvtype, root, comm); }