mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-07-18 03:17:04 +00:00
Zoltan is added as thirdParty package
This commit is contained in:
27
thirdParty/Zoltan/siMPI/pyMPI/siMPI/PMPI_Reduce_scatter.c
vendored
Normal file
27
thirdParty/Zoltan/siMPI/pyMPI/siMPI/PMPI_Reduce_scatter.c
vendored
Normal file
@ -0,0 +1,27 @@
|
||||
/*****************************************************************************
|
||||
* CVS File Information :
|
||||
* $RCSfile$
|
||||
* Author: patmiller $
|
||||
* Date: 2007/06/11 14:12:53 $
|
||||
* Revision: 1.2 $
|
||||
****************************************************************************/
|
||||
/****************************************************************************/
|
||||
/* FILE ****************** PMPI_Reduce_scatter.c ************************/
|
||||
/****************************************************************************/
|
||||
/* Author : Lisa Alano July 23 2002 */
|
||||
/* Copyright (c) 2002 University of California Regents */
|
||||
/****************************************************************************/
|
||||
|
||||
#include "mpi.h"
|
||||
|
||||
/* STUB */
|
||||
int PMPI_Reduce_scatter ( void *sendbuf, void *recvbuf, int *recvcnts, MPI_Datatype datatype, MPI_Op op, MPI_Comm comm ) {
|
||||
if ( !recvcnts ) {
|
||||
_MPI_ERR_ROUTINE (MPI_ERR_COUNT, "MPI_ERR_COUNT : Invalid recv count argument");
|
||||
MPI_Abort(comm, MPI_ERR_OTHER);
|
||||
return _MPI_NOT_OK;
|
||||
}
|
||||
|
||||
return PMPI_Reduce(sendbuf,recvbuf,*recvcnts,datatype,op,0,comm);
|
||||
}
|
||||
|
Reference in New Issue
Block a user