ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-12 22:20:35 +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];
// MPI_Bcast (&buf, 100, MPI_CHAR, 0, MPI_COMM_WORLD);
VT_OFF();
// VT_OFF();
MPI_Status status;
int flag;
do
{
MPI_Iprobe (0, MPI_TAG_CMD, MPI_COMM_WORLD, &flag, &status);
if (!flag) usleep (1000);
if (!flag)
{
VT_TRACER ("sleep");
usleep (1000);
}
}
while (!flag);
VT_ON();
// VT_ON();
MPI_Recv( &buf, 100, MPI_CHAR, 0, MPI_TAG_CMD, MPI_COMM_WORLD, &status);