#include "definitions.h"
#include "App_Info.h"

App_Info::App_Info(int app_num, int app_size, int *world_ranks)
{
 int world_size;

   app_num_        = app_num;
   app_size_       = app_size;
   world_ranks_    = copy_int_list(app_size, world_ranks);
   MPI_Comm_size(MPI_COMM_WORLD, &world_size);
   relative_ranks_ = (int *) malloc(sizeof(int)*world_size);
   for(int i=0; i < world_size; i++) 
	relative_ranks_[i] = -1;
   for(i=0; i < app_size_; i++)
   	relative_ranks_[world_ranks_[i]] = i;
   intra_comm_ = NULL;
   combine_count_ = 0;
   
#ifdef DEBUG
   printf("Creating an new App Info object\n");
   printf("App_num = %d  App_size = %d\n", app_num_, app_size_);
   printf("Ranks relative:   world:    world-relative\n");
   for(int j=0;j<app_size_;j++)
   printf("            %d       %d              %d\n", j, world_ranks_[j],
				relative_ranks_[world_ranks_[j]]);
#endif
}


App_Info::~App_Info()
{
   if (world_ranks_ != NULL) free(world_ranks_);
   if (relative_ranks_ != NULL) free(relative_ranks_);
   if (intra_comm_ != NULL)
   {
	MPI_Comm_free(intra_comm_);
 	free(intra_comm_);
	intra_comm_ =NULL;
   }
   world_ranks_ = NULL;
   relative_ranks_ = NULL;
}


int App_Info::app_num(){ return app_num_;}

int App_Info::app_size(){ return app_size_;}

int App_Info::get_master(){ return world_ranks_[0];}

int App_Info::world_rank(int relative_rank)
{
  return world_ranks_[relative_rank];
}

int App_Info::relative_rank(int world_rank)
{
  return relative_ranks_[world_rank];
}
				
void App_Info::set_intra_comm(MPI_Comm *intra_comm)
{
  intra_comm_ = intra_comm;
}

MPI_Comm* App_Info::intra_comm()
{
  return intra_comm_;
}

void App_Info::inc_combine_count()
{
  combine_count_++;
}

int App_Info::combine_count()
{
  return combine_count_;
}

void App_Info::reset_combine_count()
{
  combine_count_ = 0;
}


int* App_Info::world_ranks(){
  return world_ranks_;
}

void App_Info::world_ranks(int *ret_list)
{
  for(int i=0; i < app_size_; i++)
    ret_list[i] = world_ranks_[i];
}