Example #1
0
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);
}
Example #2
0
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);
  
}
Example #3
0
/*==========================================================================*/
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);
}