ParisBlock.cc

Go to the documentation of this file.

#include "ParisBlock.h"

#include "Schedule.h"

ParisBlock::ParisBlock(Fabrique* f ) { 
  setFabric(f);
  _darray = f->creer();
  _vdarray = f->vcreer(); 
  _vdarray->clear(); 
  
  _clttopo.total = 123; // debug
  _srvtopo.total = 123; // debug

  // param
  _param.type = PARISBLOCK_BLOCK; // default is bloc
  _param.blocksize = 1; //  default is cyclic(1)
  _param.unitblocksize = 1; // by default
  
}

ParisBlock::~ParisBlock() { 
  delete _fab; delete _darray; delete _vdarray;
} 

void ParisBlock::setFabric(Fabrique* f) { _fab = f; }

void ParisBlock::reset() { _vdarray->clear(); }

const PaCO::distLoc_t& ParisBlock::getMode() const { return _mode; }

bool ParisBlock::setMode(const PaCO::distLoc_t mode) { _mode = mode; return true; } // true if ok

bool ParisBlock::setClientConfiguration(const PaCO::PacoTopology_t & ctopo) { _clttopo = ctopo; return true; }
bool ParisBlock::setServerConfiguration(const PaCO::PacoTopology_t & stopo) { _srvtopo = stopo; return true; }

bool ParisBlock::setGlobalDataConfiguration(const PaCO::PacoGlobalData_t& gd) { _gd = gd; return true; }
bool ParisBlock::setLocalDataConfiguration (const PaCO::PacoLocalData_t&  ld) {
  _ld.rank  = ld.rank;
  _ld.start = ld.start;
  _ld.len  = ld.len;
  return true;
}

int ParisBlock::setConfig(void * config) {
  _param = * ( ParisBlock_param_t*) config;  
  return 0;
}

void* ParisBlock::getConfig() {
  return (void*) &_param;
}

void ParisBlock::computeSend(const void* data, vAbstrait& vdarray, vector<unsigned>& destid) {
  _ld.base = (char*) data;

  computeSendDataBlock1D(_gd, _ld, _clttopo, _srvtopo, &_param, vdarray, destid, _mode, _comm);
}

bool ParisBlock::computeReceive(Abstrait* darray) {

  this->setClientConfiguration(darray->topo());  

  // Get the mode of the client
  this->setMode(darray->mode());

  unsigned nb  = nbofPart(_mode, _clttopo.total, _srvtopo.total, _ld.rank);

  unsigned pos;

  // In server side redistribution, empty dist for server nodes whose id > max client node
  if (darray->dist().length() != 0 ) {
    pos = posofPart(_mode, _srvtopo.total, darray->dist()[0].rank);
  } else {
    pos = 0;
  }

  // Initialize _vdarray & remaining (assumed clean)
  if (_vdarray->size() == 0) {
    // _vdarray is empty: so let's define its size
    _vdarray->size(nb);
    _remaining = nb;
  }


  //  fprintf(stderr, "computeReceive: Node %d : set entry %d/%d to %p\n", _ld.rank, pos, nb, darray);
  _vdarray->setAbstrait(pos, darray);
  _remaining--;

  //  fprintf(stderr, "computeReceive: Node %d : got %d of %d data\n", _ld.rank, _vdarray->size() - _remaining, _vdarray->size());

  if (_remaining == 0) {
    computeReceiveDataBlock1D(_vdarray, _mode, _srvtopo.total, _ld.rank, &_param, _darray, _comm);
    return true;
  } else {
    return false;
  }
}

Abstrait* ParisBlock::getResult() const { return _darray; }