Changeset 25945

Timestamp:

2012-07-13T12:30:14+12:00 (11 years ago)

Author:

jmt12

Message:

more debugging and a few tweaks - and between this and changes to the calling perl script, the process now doesn't hang

File:

• gs2-extensions/parallel-building/trunk/src/src/mpidspacemediafilter-src/mpidspacemediafilter.cpp (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/src/mpidspacemediafilter-src/mpidspacemediafilter.cpp

@@ -176 +176 @@
     {
       // wait for instruction from master
+      fprintf(stderr, "[W%d] Waiting for instructions from master...\n", rank);
       int resval = MPI_Recv (&incoming, BUFFERSIZE, MPI_CHAR, 0, 1, MPI_COMM_WORLD, &stat);
       if (resval != MPI_SUCCESS)
@@ -181 +182 @@
         fprintf(stderr, "[W%d] Error when recieving message from master... terminating (%d).\n", rank, resval);
         MPI_Abort(MPI_COMM_WORLD, rc);
+      }
+      else
+      {
+        fprintf(stderr, "[W%d] Recieved instruction: %s\n", rank, incoming);
       }
       counter++;