From cfc7c46df01e9f663299093c5bd79995f8207f7f Mon Sep 17 00:00:00 2001
From: Joachim Schoeberl <joachim.schoeberl@tuwien.ac.at>
Date: Thu, 3 Nov 2011 11:03:11 +0000
Subject: [PATCH] tiny parallel polish

---
 libsrc/general/mpi_interface.hpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libsrc/general/mpi_interface.hpp b/libsrc/general/mpi_interface.hpp
index ae261ab6..53f22579 100644
--- a/libsrc/general/mpi_interface.hpp
+++ b/libsrc/general/mpi_interface.hpp
@@ -185,7 +185,7 @@ namespace netgen
     // MPI_Bcast (&buf, 100, MPI_CHAR, 0, MPI_COMM_WORLD);
 
     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 ()
@@ -198,7 +198,7 @@ namespace netgen
     do
       {
 	MPI_Iprobe (0, MPI_TAG_CMD, MPI_COMM_WORLD, &flag, &status);
-	if (!flag) usleep (50000);
+	if (!flag) usleep (1000);
       }
     while (!flag);
     MPI_Recv( &buf, 100, MPI_CHAR, 0, MPI_TAG_CMD, MPI_COMM_WORLD, &status);