mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-07-18 03:17:04 +00:00
28 lines
1.1 KiB
C
28 lines
1.1 KiB
C
/*****************************************************************************
|
|
* 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);
|
|
}
|
|
|