ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-04-08 22:37:28 +05:00
Code Issues Packages Projects Releases Wiki Activity

parallel

Browse Source
This commit is contained in:
Joachim Schoeberl 2012-06-18 18:40:05 +00:00
parent eade1f6b2d
commit 312dcb3e31
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libsrc/general/mpi_interface.cpp
View File

@ -28,16 +28,20 @@ namespace netgen
char buf[100]; char buf[100];
// MPI_Bcast (&buf, 100, MPI_CHAR, 0, MPI_COMM_WORLD); // MPI_Bcast (&buf, 100, MPI_CHAR, 0, MPI_COMM_WORLD);
VT_OFF(); // VT_OFF();
MPI_Status status; MPI_Status status;
int flag; int flag;
do do
{ {
MPI_Iprobe (0, MPI_TAG_CMD, MPI_COMM_WORLD, &flag, &status); MPI_Iprobe (0, MPI_TAG_CMD, MPI_COMM_WORLD, &flag, &status);
if (!flag) usleep (1000); if (!flag)
{
VT_TRACER ("sleep");
usleep (1000);
}
} }
while (!flag); while (!flag);
VT_ON(); // VT_ON();
MPI_Recv( &buf, 100, MPI_CHAR, 0, MPI_TAG_CMD, MPI_COMM_WORLD, &status); MPI_Recv( &buf, 100, MPI_CHAR, 0, MPI_TAG_CMD, MPI_COMM_WORLD, &status);