int MPI_Testall(int count, MPI_Request *array_of_requests, int *flag, MPI_Status *array_of_statuses)
{
int err;
ALLOCATE_STATUS(array_of_newstatuses,count)
err=PMPI_Testall(count, array_of_requests, flag, array_of_newstatuses);
COPY_STATUS(array_of_statuses,array_of_newstatuses,count)
return err;
}
int MPI_Testall(int count, MPI_Request *array_of_requests, int *flag,
MPI_Status *array_of_statuses)
{
int returnVal;
int i3;
/* NEEDS WORK */
returnVal = PMPI_Testall( count, array_of_requests, flag, array_of_statuses );
if (*flag) {
for (i3=0; i3 < count; i3++) {
ProcessWaitTest_1( array_of_requests[i3], /* WRONG */
&array_of_statuses[i3],
"MPI_Testall" );
}
}
return returnVal;
}
int MPI_Testall(int count, MPI_Request* requests, int* flag, MPI_Status* statuses) {
return PMPI_Testall(count, requests, flag, statuses);
}
