| 16 | 
  | 
#ifdef IS_MPI | 
| 17 | 
  | 
#include <mpi.h> | 
| 18 | 
  | 
#include "mpiSimulation.hpp" | 
| 19 | 
< | 
#define TAKE_THIS_TAG_CHAR 0 | 
| 20 | 
< | 
#define TAKE_THIS_TAG_INT 1 | 
| 19 | 
> | 
#define TAKE_THIS_TAG_CHAR 3134 | 
| 20 | 
> | 
#define TAKE_THIS_TAG_INT 3135 | 
| 21 | 
  | 
 | 
| 22 | 
  | 
namespace initFile{ | 
| 23 | 
  | 
  void nodeZeroError( void ); | 
| 220 | 
  | 
 | 
| 221 | 
  | 
    MPI_Bcast(read_buffer, BUFFERSIZE, MPI_CHAR, 0, MPI_COMM_WORLD); | 
| 222 | 
  | 
 | 
| 223 | 
+ | 
    cerr << "node " << worldRank << " finished  MPI_Bcast" << endl; | 
| 224 | 
+ | 
 | 
| 225 | 
  | 
    parseErr = parseCommentLine( read_buffer, simnfo); | 
| 226 | 
  | 
 | 
| 227 | 
  | 
    if( parseErr != NULL ){ | 
| 270 | 
  | 
 | 
| 271 | 
  | 
        MPI_Recv(&nCurObj, 1, MPI_INT, which_node, | 
| 272 | 
  | 
               TAKE_THIS_TAG_INT, MPI_COMM_WORLD, &istatus); | 
| 273 | 
< | 
       | 
| 274 | 
< | 
       for(j=0; j < integrableObjects.size(); j++){ | 
| 273 | 
> | 
         cerr << "node " << worldRank << " finished  MPI_Send" << endl;   | 
| 274 | 
> | 
       for(j=0; j < nCurObj; j++){ | 
| 275 | 
  | 
         | 
| 276 | 
  | 
          eof_test = fgets(read_buffer, sizeof(read_buffer), c_in_file); | 
| 277 | 
  | 
          if(eof_test == NULL){ | 
| 288 | 
  | 
 | 
| 289 | 
  | 
            MPI_Send(read_buffer, BUFFERSIZE, MPI_CHAR, which_node, | 
| 290 | 
  | 
                      TAKE_THIS_TAG_CHAR, MPI_COMM_WORLD); | 
| 291 | 
< | 
            | 
| 291 | 
> | 
           cerr << "node " << worldRank << " finished  MPI_Send" << endl; | 
| 292 | 
  | 
       } | 
| 293 | 
  | 
 | 
| 294 | 
  | 
      } | 
| 301 | 
  | 
 | 
| 302 | 
  | 
    MPI_Bcast(read_buffer, BUFFERSIZE, MPI_CHAR, 0, MPI_COMM_WORLD); | 
| 303 | 
  | 
 | 
| 304 | 
+ | 
    cerr << "node " << worldRank << " finished  MPI_Bcast" << endl; | 
| 305 | 
  | 
    parseErr = parseCommentLine( read_buffer, simnfo); | 
| 306 | 
  | 
 | 
| 307 | 
  | 
    if( parseErr != NULL ){ | 
| 331 | 
  | 
        MPI_Send(&nCurObj, 1, MPI_INT, 0, | 
| 332 | 
  | 
                        TAKE_THIS_TAG_INT, MPI_COMM_WORLD); | 
| 333 | 
  | 
 | 
| 334 | 
+ | 
        cerr << "node " << worldRank << " finished  MPI_Send" << endl; | 
| 335 | 
  | 
        for(j = 0; j < integrableObjects.size(); j++){ | 
| 336 | 
  | 
 | 
| 337 | 
  | 
          MPI_Recv(read_buffer, BUFFERSIZE, MPI_CHAR, 0, | 
| 338 | 
  | 
                              TAKE_THIS_TAG_CHAR, MPI_COMM_WORLD, &istatus); | 
| 339 | 
  | 
 | 
| 340 | 
+ | 
        cerr << "node " << worldRank << " finished  MPI_Recv" << endl; | 
| 341 | 
  | 
          parseErr = parseDumpLine(read_buffer, integrableObjects[j]); | 
| 342 | 
  | 
 | 
| 343 | 
  | 
          if( parseErr != NULL ){ |