Home Research Papers Posters Manuals Talks Download People Help Internal

ck-ldb/RefineTopoLB.C

Go to the documentation of this file.

/**************************************************************************
RefineTopoLB: 
This is a topology-aware load balancer.
Author: Tarun Agarwal (tarun)
Date: 04/27/2005
***************************************************************************/

#include <math.h>
#include <stdlib.h>
#include "RefineTopoLB.decl.h"

#include "RefineTopoLB.h"

#define alpha PER_MESSAGE_SEND_OVERHEAD_DEFAULT  /*Startup time per message, seconds*/
#define beta PER_BYTE_SEND_OVERHEAD_DEFAULT     /*Long-message time per byte, seconds*/
#define DEG_THRES 0.50
#define EPSILON  -0.001

#define _lb_debug_on 0
#define _lb_debug2_on 0
#define _make_new_grouping_ 0
#define _USE_MAX_HOPBYTES_ 1

extern int quietModeRequested;

CreateLBFunc_Def(RefineTopoLB,"TopoLB: Balance objects based on the network topology")


RefineTopoLB::RefineTopoLB(const CkLBOptions &opt) : CBase_RefineTopoLB (opt)
{
  lbname = "RefineTopoLB";
  if (CkMyPe () == 0 && !quietModeRequested) {
    CkPrintf ("CharmLB> RefineTopoLB created.\n");
  }
}

bool RefineTopoLB::QueryBalanceNow (int _step)
{
  return true;
}

void RefineTopoLB :: work(LDStats *stats)
{
  int i, j;
  int n_pes = stats->nprocs();

  if (_lb_args.debug() >= 2) {
    CkPrintf("In TopoLB Strategy...\n");
  }
  
  /****Make sure that there is at least one available processor.***/
  int proc;
  for (proc = 0; proc < n_pes; proc++) {
    if (stats->procs[proc].available)  
      break;
  }
    
  if (proc == n_pes) {
    CmiAbort ("TopoLB: no available processors!");
  }
 
  removeNonMigratable(stats, n_pes);

  if(_lb_debug_on) {
    CkPrintf("Num of procs: %d\n", n_pes);
    CkPrintf("Num of objs:  %d\n", stats->n_objs);
  }

  /**************Initialize Topology ****************************/
  LBtopoFn topofn;
  topofn = LBTopoLookup(_lbtopo);
  if (topofn == NULL) 
  {
    char str[1024];
    CmiPrintf("TopoLB> Fatal error: Unknown topology: %s. Choose from:\n", _lbtopo);
    printoutTopo();
    sprintf(str, "TopoLB> Fatal error: Unknown topology: %s", _lbtopo);
    CmiAbort(str);
  }
  topo = topofn(n_pes);
  /**************************************************************/
  if(_lb_debug_on)
    CkPrintf("before computing partitions...\n");
  
  int *newmap = new int[stats->n_objs];
  if(_make_new_grouping_)
    computePartitions(stats, n_pes, newmap);
  else
  {
    for(int i=0;i<stats->n_objs;i++)
    {
      newmap[i]=stats->from_proc[i];
    }
  }
  /***************** Fill Data Structures *************************/
  if(_lb_debug_on)
    CkPrintf("before allocating dataStructures...\n");
  allocateDataStructures(n_pes);
  if(_lb_debug_on)
    CkPrintf("before initizlizing dataStructures...\n");
  initDataStructures(stats, n_pes, newmap);
  if(_lb_debug_on)
    CkPrintf("After initizlizing dataStructures...\n");

  for(i = 0; i < n_pes; i++)
    assign[i]=i;
  


  if(_lb_debug_on)
    printDataStructures(n_pes, stats->n_objs,newmap);
  /***************** Perform RefineMent *************************/
  bool *swapdone=new bool[n_pes];
  for(i = 0; i < n_pes; i++)
    swapdone[i]=false;

    
  //double hbval=getHopBytes(stats, n_pes, stats->from_proc);
  //double hbval=getHopBytesNew(NULL, n_pes);
 // CkPrintf(" Before Mapping Original   hopBytes : %lf  Avg comm hops: %lf\n", hbval,hbval/total_comm);
  //Perform ith swap
  double totalGain=0;
  for(i = 0; i < n_pes; i++)
  {
    //select the cpart which is most communicating and hasn't been moved yet
    if(_USE_MAX_HOPBYTES_)
    {
      updateCommUA(n_pes);
    }
    int cpart=-1;
    double maxComm=-1;
    for(j = 0; j < n_pes; j++)
    {
      if(swapdone[j]) continue;
      if(commUA[j]>maxComm)
      {
        maxComm=commUA[j];
        cpart=j;
      }
    }
    CmiAssert(cpart!=-1);

    //Next find a cpart for swap
    int swapcpart=-1;
    double gainMax=-1;
    double gain=-1;;
    //double orig_value=getHopBytesNew(assign, n_pes);
    for(j = 0; j < n_pes; j++)
    {
      if(j==cpart)
        continue;

      gain=findSwapGain(j, cpart, n_pes);

      //CkPrintf("%lf : %lf\n",gain,findSwapGain(j, cpart, n_pes));
      if(gain>gainMax && gain>0)
      {
        gainMax=gain;
        swapcpart=j;
      }
    }
    if(swapcpart==-1)
    {
      swapdone[cpart]=true;
      continue;
    }
    totalGain+=gainMax;
    CmiAssert(swapcpart!=-1);
    
    //Actually swap
    int temp=assign[cpart];
    assign[cpart]=assign[swapcpart];
    assign[swapcpart]=temp;
    swapdone[cpart]=true;
  
    //CkPrintf("Gain: %lf  Total_Gain: %lf HopBytes: %lf\n ",gainMax,totalGain,getHopBytesNew(stats, n_pes, newmap));
    //CkPrintf(" %lf  getHopBytesNew(stats, n_pes, newmap);
    //CkPrintf("Swap# %d:  %d and %d\n",i+1,cpart,swapcpart);
  }
  /******************* Assign mapping and print Stats*********/
  for(i=0;i<stats->n_objs;i++)
  {
    stats->to_proc[i]= assign[newmap[i]];
  }
  if(_lb_debug2_on)
  {
    //double hbval=getHopBytes(stats, n_pes, stats->from_proc);
    double hbval1=getHopBytesNew(NULL, n_pes);
    CkPrintf(" Original   hopBytes : %lf  Avg comm hops: %lf\n", hbval1,hbval1/total_comm);
    double hbval2=getHopBytesNew(assign, n_pes);
    CkPrintf(" Resulting  hopBytes : %lf  Avg comm hops: %lf\n", hbval2,hbval2/total_comm);
    CkPrintf(" Percentage gain %.2lf\n",(hbval1-hbval2)*100/hbval1);
    CkPrintf("\n");
  }
  freeDataStructures(n_pes);
  delete[] newmap;
  delete[] swapdone;
}

double RefineTopoLB::findSwapGain(int cpart1, int cpart2, int n_pes)
{
  double oldvalue=0;
  int proc1=assign[cpart1];
  int proc2=assign[cpart2];
  int proci=-1;

  for(int i = 0; i < n_pes; i++)
  {
    proci=assign[i];
    if(i!=cpart1 && i!=cpart2)
    {
      //oldvalue+=comm[cpart1][i]*(dist[proc1][proci]-dist[proc2][proci]);
      //oldvalue+=comm[cpart2][i]*(dist[proc2][proci]-dist[proc1][proci]);
      oldvalue+=(comm[cpart1][i]-comm[cpart2][i])*(dist[proc1][proci]-dist[proc2][proci]);
      
    }
  }
  return oldvalue;
}

double RefineTopoLB::getCpartHopBytes(int cpart, int proc, int count)
{
  double totalHB=0;
  for(int i=0;i<count;i++)
  {
    if(assign[i]==proc)
    {
      totalHB+=comm[cpart][i]*dist[proc][assign[cpart]];
    }
    else
    {
      totalHB+=comm[cpart][i]*dist[proc][assign[i]];
    }
  }
  return totalHB;
}

/*
double RefineTopoLB::getInterMedHopBytes(int *assign_map,int count)
{
  double totalHB=0;
  int i,j;

  if(assign_map)
  {
    for(i=0;i<count;i++)
      for(j=0;j<count;j++)
        totalHB+=comm[i][j]*dist[assign_map[i]][assign_map[j]];
  }
  else
  {
    for(i=0;i<count;i++)
      for(j=0;j<count;j++)
        totalHB+=comm[i][j]*dist[i][j];
  }
  return totalHB;
}
*/

void RefineTopoLB::updateCommUA(int count)
{
  int i,j;
  for(i=0;i<count;i++)
  {
    commUA[i]=0;
    for(j=0;j<count;j++)
      commUA[i]+=comm[i][j]*dist[assign[i]][assign[j]];
  }
}

#include "RefineTopoLB.def.h"

---