Changeset 25945

Show
Ignore:
Timestamp:
13.07.2012 12:30:14 (7 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/src/mpidspacemediafilter-src/mpidspacemediafilter.cpp

    r25944 r25945  
    176176    { 
    177177      // wait for instruction from master 
     178      fprintf(stderr, "[W%d] Waiting for instructions from master...\n", rank); 
    178179      int resval = MPI_Recv (&incoming, BUFFERSIZE, MPI_CHAR, 0, 1, MPI_COMM_WORLD, &stat); 
    179180      if (resval != MPI_SUCCESS) 
     
    181182        fprintf(stderr, "[W%d] Error when recieving message from master... terminating (%d).\n", rank, resval); 
    182183        MPI_Abort(MPI_COMM_WORLD, rc); 
     184      } 
     185      else 
     186      { 
     187        fprintf(stderr, "[W%d] Recieved instruction: %s\n", rank, incoming); 
    183188      } 
    184189      counter++;