From 312dcb3e3163ceb7f7699511378d865740d39037 Mon Sep 17 00:00:00 2001 From: Joachim Schoeberl Date: Mon, 18 Jun 2012 18:40:05 +0000 Subject: [PATCH] parallel --- libsrc/general/mpi_interface.cpp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/libsrc/general/mpi_interface.cpp b/libsrc/general/mpi_interface.cpp index 598015ce..49762550 100644 --- a/libsrc/general/mpi_interface.cpp +++ b/libsrc/general/mpi_interface.cpp @@ -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);