Example #1
0
int MPI_Waitsome(int count, MPI_Request *array_of_requests, int *outcount, int *array_of_indices, MPI_Status *array_of_statuses)
{
    int err;
    ALLOCATE_STATUS(array_of_newstatuses,count)
    err=PMPI_Waitsome(count,array_of_requests,outcount,array_of_indices,array_of_newstatuses);
    COPY_STATUS(array_of_statuses,array_of_newstatuses,*outcount)
    return err;
}
Example #2
0
int  MPI_Waitsome(int incount, MPI_Request *array_of_requests, int *outcount,
		  int *array_of_indices, MPI_Status *array_of_statuses)
{
  int  returnVal;
  int i;

  /* NEEDS WORK */
  
  returnVal = PMPI_Waitsome( incount, array_of_requests, outcount, array_of_indices, array_of_statuses );

  for (i=0; i < *outcount; i++) {
    ProcessWaitTest_1( array_of_requests
			          [array_of_indices[i]], /* WRONG */
			        &array_of_statuses
			          [array_of_indices[i]],
			        "MPI_Waitsome" );
  }

  return returnVal;
}
Example #3
0
int MPI_Waitsome(int incount, MPI_Request requests[], int *outcount,
                 int *indices, MPI_Status status[])
{
  return PMPI_Waitsome(incount, requests, outcount, indices, status);
}