32 строки
655 B
C
32 строки
655 B
C
|
/*
|
||
|
|
* $HEADER$
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "ompi_config.h"
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
|
||
|
|
#include "mpi.h"
|
||
|
|
#include "communicator/communicator.h"
|
||
|
|
#include "mca/coll/coll.h"
|
||
|
|
#include "mca/coll/base/base.h"
|
||
|
|
#include "coll_sm.h"
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* reduce
|
||
|
|
*
|
||
|
|
* Function: - shared memory reduce
|
||
|
|
* Accepts: - same as MPI_Reduce()
|
||
|
|
* Returns: - MPI_SUCCESS or error code
|
||
|
|
*/
|
||
|
|
int
|
||
|
|
mca_coll_sm_reduce(void *sbuf, void* rbuf, int count,
|
||
|
|
struct ompi_datatype_t *dtype,
|
||
|
|
struct ompi_op_t *op,
|
||
|
|
int root, struct ompi_communicator_t *comm)
|
||
|
|
{
|
||
|
|
return MPI_SUCCESS;
|
||
|
|
}
|
||
|
|
|