mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-08-07 03:37:02 +00:00
32 lines
1.1 KiB
C
32 lines
1.1 KiB
C
/*****************************************************************************
|
|
* CVS File Information :
|
|
* $RCSfile$
|
|
* Author: rrdrake $
|
|
* Date: 2009/07/14 22:56:42 $
|
|
* Revision: 1.3 $
|
|
****************************************************************************/
|
|
/****************************************************************************/
|
|
/* FILE ****************** PMPI_Group_compare.c ************************/
|
|
/****************************************************************************/
|
|
/* Author : Lisa Alano July 23 2002 */
|
|
/* Copyright (c) 2002 University of California Regents */
|
|
/****************************************************************************/
|
|
|
|
#include "mpi.h"
|
|
|
|
int PMPI_Group_compare ( MPI_Group group1, MPI_Group group2, int *result )
|
|
{
|
|
_MPI_COVERAGE();
|
|
*result = MPI_UNEQUAL;
|
|
if ( _MPI_Group_check(group1) == MPI_SUCCESS &&
|
|
_MPI_Group_check(group2) == MPI_SUCCESS )
|
|
{
|
|
_MPI_COVERAGE();
|
|
if ( group1 == group2 )
|
|
*result = MPI_IDENT;
|
|
return MPI_SUCCESS;
|
|
}
|
|
return MPI_ERR_GROUP;
|
|
}
|
|
|