guilhem_lavaux/vide_public
0
0
Fork 0
mirror of https://bitbucket.org/cosmicvoids/vide_public.git synced 2025-07-05 07:41:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added missing libsw library

Browse source
This commit is contained in:
Guilhem Lavaux 2013-03-01 15:43:05 -05:00
parent dd5e51c09c
commit 9dff8cfb5a
57 changed files with 13454 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

56
external/libsdf/libsw/mpi_bcast.c vendored Normal file
View file

@ -0,0 +1,56 @@
#include "swampi.h"
#include "Msgs.h"
#include "gc.h" /* for ilog2 */
#include "error.h"
#define TAG 4
int
MPI_Bcast(void *buf, int count, MPI_Datatype type, int srcproc, MPI_Comm comm)
{
int chan;
int doc;
int sendproc;
int ret;
MPI_Request rreq, sreq;
MPI_Status status;
int procnum = _MPI_Procnum;
int nproc = _MPI_Nproc;
int nbytes = _MPI_Datasize[type] * count;
Msgf(("mpi: Bcast\n"));
if (srcproc != 0) { /* Is this stupid? */
if (_MPI_Procnum == 0) {
MPI_Irecv(buf, nbytes, MPI_BYTE, srcproc, TAG, MPI_COMM_PRIVATE,
&rreq);
MPI_Wait(&rreq, &status);
MPI_Get_count(&status, MPI_BYTE, &ret);
if (ret != nbytes) Error("Bcast got wrong len\n");
} else if (_MPI_Procnum == srcproc) {
MPI_Isend(buf, nbytes, MPI_BYTE, 0, TAG, MPI_COMM_PRIVATE, &sreq);
MPI_Wait(&sreq, 0);
}
}
doc = ilog2(nproc);
if (nproc != 1 << doc)
doc++; /* for non power-of-two sizes */
for (chan = 0; chan < doc; chan++) {
sendproc = procnum ^ (1 << chan);
if (sendproc >= 0 && sendproc < nproc) {
if (procnum & (1 << chan)) {
MPI_Irecv(buf, nbytes, MPI_BYTE, sendproc, TAG,
MPI_COMM_PRIVATE, &rreq);
MPI_Wait(&rreq, &status);
MPI_Get_count(&status, MPI_BYTE, &ret);
if (ret != nbytes) Error("Bcast got wrong len\n");
} else {
MPI_Isend(buf, nbytes, MPI_BYTE, sendproc, TAG,
MPI_COMM_PRIVATE, &sreq);
MPI_Wait(&sreq, 0);
}
}
}
return MPI_SUCCESS;
}