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

tiny parallel polish

Browse Source
This commit is contained in:
Joachim Schoeberl 2011-11-03 11:03:11 +00:00
parent bf3a579548
commit cfc7c46df0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/general/mpi_interface.hpp
View File

@ -185,7 +185,7 @@ namespace netgen
// MPI_Bcast (&buf, 100, MPI_CHAR, 0, MPI_COMM_WORLD); // MPI_Bcast (&buf, 100, MPI_CHAR, 0, MPI_COMM_WORLD);
for (int dest = 1; dest < ntasks; dest++) for (int dest = 1; dest < ntasks; dest++)
MPI_Send( &buf, 100, MPI_CHAR, dest, MPI_TAG_CMD, MPI_COMM_WORLD); MPI_Bsend( &buf, 100, MPI_CHAR, dest, MPI_TAG_CMD, MPI_COMM_WORLD);
} }
inline string MyMPI_RecvCmd () inline string MyMPI_RecvCmd ()
@ -198,7 +198,7 @@ namespace netgen
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 (50000); if (!flag) usleep (1000);
} }
while (!flag); while (!flag);
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);