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; }
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; }
int MPI_Waitsome(int incount, MPI_Request requests[], int *outcount, int *indices, MPI_Status status[]) { return PMPI_Waitsome(incount, requests, outcount, indices, status); }