xfygogo/phasicFlow
1
0
Fork 0
mirror of https://github.com/PhasicFlow/phasicFlow.git synced 2025-08-07 03:37:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Zoltan is added as thirdParty package

Browse Source
This commit is contained in:
Hamidreza
2025-05-15 21:58:43 +03:30
parent 83a6e4baa1
commit d7479cf1bd
3392 changed files with 318142 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
thirdParty/Zoltan/siMPI/pyMPI/siMPI/PMPI_Testsome.c vendored Normal file
View File

@ -0,0 +1,54 @@
/*****************************************************************************
* CVS File Information :
* $RCSfile$
* Author: rrdrake $
* Date: 2009/07/17 15:14:49 $
* Revision: 1.3 $
****************************************************************************/
/****************************************************************************/
/* FILE ************************ PMPI_Testsome.c ************************/
/****************************************************************************/
/* Author : Lisa Alano July 23 2002 */
/* Copyright (c) 2002 University of California Regents */
/****************************************************************************/
#include "mpi.h"
int PMPI_Testsome(
int incount,
MPI_Request array_of_requests[],
int *outcount,
int array_of_indices[],
MPI_Status array_of_statuses[] )
{
int i, j, num_active, flag, t;
*outcount = 0;
j = 0;
num_active = 0;
for ( i = 0; i < incount; ++i )
{
if ( array_of_requests[i] != MPI_REQUEST_NULL )
{
++num_active;
if ( array_of_statuses == MPI_STATUSES_IGNORE )
t = PMPI_Test( array_of_requests+i, &flag, MPI_STATUS_IGNORE );
else
t = PMPI_Test( array_of_requests+i, &flag, array_of_statuses+j );
if ( t != MPI_SUCCESS )
return t;
if ( flag )
{
array_of_indices[j] = i;
++(*outcount);
++j;
}
}
}
if ( num_active == 0 )
*outcount = MPI_UNDEFINED;
return MPI_SUCCESS;
}