Method BcastCommand

examples/extended/parallel/MPI/source/src/G4MPImanager.cc:540–577

====================================================================

// ====================================================================
G4String G4MPImanager::BcastCommand(const G4String& command)
{
  // Do nothing if not processing worker
  if (is_extra_worker_) return G4String("exit");

  enum
  {
    kBUFF_SIZE = 512
  };
  static char sbuff[kBUFF_SIZE];
  command.copy(sbuff, kBUFF_SIZE);
  G4int len = command.size();
  sbuff[len] = '\0';  // no boundary check

  // "command" is not yet fixed in slaves at this time.

  // waiting message exhausts CPU in LAM!

  // another implementation
  if (is_master_) {
    for (G4int islave = 1; islave < size_; islave++) {
      MPI_Send(sbuff, kBUFF_SIZE, MPI_CHAR, islave, kTAG_G4COMMAND, COMM_G4COMMAND_);
    }
  }
  else {
    // try non-blocking receive
    MPI_Request request;
    MPI_Irecv(sbuff, kBUFF_SIZE, MPI_CHAR, kRANK_MASTER, kTAG_G4COMMAND, COMM_G4COMMAND_, &request);

    int flag = 0;
    while (!flag) {
      MPI_Test(&request, &flag, MPI_STATUS_IGNORE);
      ::Wait(1000);
    }
  }

  return G4String(sbuff);
}

// ====================================================================
void G4MPImanager::ExecuteMacroFile(const G4String& fname, G4bool qbatch)