ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-27 13:20:34 +05:00
Code Issues Packages Projects Releases Wiki Activity

vampir

Browse Source
This commit is contained in:
Joachim Schoeberl 2012-06-16 15:22:46 +00:00
parent 0a626a57f3
commit 51084912d9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
libsrc/general/mpi_interface.hpp
View File

@ -229,6 +229,7 @@ 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();
MPI_Status status; MPI_Status status;
int flag; int flag;
do do
@ -237,6 +238,8 @@ namespace netgen
if (!flag) usleep (1000); if (!flag) usleep (1000);
} }
while (!flag); while (!flag);
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);
return string(buf); return string(buf);