ParallelDofMapping.cc

//
// Software License for AMDiS
//
// Copyright (c) 2010 Dresden University of Technology 
// All rights reserved.
// Authors: Simon Vey, Thomas Witkowski et al.
//
// This file is part of AMDiS
//
// See also license.opensource.txt in the distribution.


#include "parallel/ParallelDofMapping.h"
#include "parallel/StdMpi.h"

namespace AMDiS {

  using namespace std;

  void FeSpaceDofMap::clear()
  {
    int nLevel = levelData->getLevelNumber();
    dofMap.clear();
    dofMap.resize(nLevel);

    nonRankDofs.clear();
    nonRankDofs.resize(nLevel);

    nRankDofs.clear();
    nLocalDofs.clear();
    nOverallDofs.clear();
    rStartDofs.clear();

    nRankDofs.resize(nLevel, 0);
    nLocalDofs.resize(nLevel, 0);
    nOverallDofs.resize(nLevel, 0);
    rStartDofs.resize(nLevel, 0);
  }


  void FeSpaceDofMap::update()
  {
    FUNCNAME("FeSpaceDofMap::update()");

    int nLevel = levelData->getLevelNumber();
    for (int i = 0; i < nLevel; i++) {

      // === Compute local indices for all rank owned DOFs. ===
      
      for (DofMap::iterator it = dofMap[i].begin(); it != dofMap[i].end(); ++it)
	if (it->second.local == -1 && nonRankDofs[i].count(it->first) == 0)
	  it->second.local = nRankDofs[i]++;
      
      // === Compute number of local and global DOFs in the mapping. ===
      
      nOverallDofs[i] = 0;
      rStartDofs[i] = 0;
      mpi::getDofNumbering(mpiComm,
			   nRankDofs[i], rStartDofs[i], nOverallDofs[i]);
      
      // === If required, compute also the global indices. ===
      
      if (needGlobalMapping) {
	computeGlobalMapping(i);
	
	if (hasNonLocalDofs)
	  computeNonLocalIndices(i);
      }
    }
  }


  void FeSpaceDofMap::computeGlobalMapping(int level)
  {
    FUNCNAME("FeSpaceDofMap::computeGlobalMapping()");

    for (DofMap::iterator it = dofMap[level].begin(); 
	 it != dofMap[level].end(); ++it)
      it->second.global = it->second.local + rStartDofs[level];
  }


  void FeSpaceDofMap::computeNonLocalIndices(int level)
  {
    FUNCNAME("FeSpaceDofMap::computeNonLocalIndices()");

    typedef map<int, map<const FiniteElemSpace*, DofContainer> >::iterator it_type;

    // === Send all global indices of DOFs that are owned by the rank to all ===
    // === other ranks that also include this DOF.                           ===

    StdMpi<vector<int> > stdMpi(mpiComm);

    for (DofComm::Iterator it(dofComm->getSendDofs(), level, feSpace); 
	 !it.end(); it.nextRank()) {
      int rank = it.getRank();
      if (meshLevel > 0)
	rank = levelData->mapRank(rank, 0, meshLevel);

      for (; !it.endDofIter(); it.nextDof())
	if (dofMap[level].count(it.getDofIndex()) && 
	    !nonRankDofs[level].count(it.getDofIndex()))
	  stdMpi.getSendData(rank).
	    push_back(dofMap[level][it.getDofIndex()].global);
    }

    stdMpi.updateSendDataSize();


    // === Check from which ranks this rank must receive some data. ===

    for (DofComm::Iterator it(dofComm->getRecvDofs(), level, feSpace); 
	 !it.end(); it.nextRank()) {
      bool recvFromRank = false;
      for (; !it.endDofIter(); it.nextDof()) {
	if (nonRankDofs[level].count(it.getDofIndex())) {
	  recvFromRank = true;
	  break;
	}
      }

      if (recvFromRank) {
	int rank = it.getRank();
	if (meshLevel > 0)
	  rank = levelData->mapRank(rank, 0, meshLevel);

	stdMpi.recv(rank);
      }
    }


    // === Start communication to exchange global indices. ===

    stdMpi.startCommunication();


    // === And set the global indices for all DOFs that are not owned by rank. ===
    
    for (DofComm::Iterator it(dofComm->getRecvDofs(), level, feSpace);
	 !it.end(); it.nextRank()) {
      int rank = it.getRank();
      if (meshLevel > 0)
	rank = levelData->mapRank(rank, 0, meshLevel);

      int i = 0;
      for (; !it.endDofIter(); it.nextDof())
	if (nonRankDofs[level].count(it.getDofIndex()))
	  dofMap[level][it.getDofIndex()].global = stdMpi.getRecvData(rank)[i++];
    }
  }


  void ParallelDofMapping::init(MeshLevelData &ldata,
				vector<const FiniteElemSpace*> &fe,
				vector<const FiniteElemSpace*> &uniqueFe,
				bool needGlobalMapping,
				bool bNonLocalDofs)
  {
    FUNCNAME("ParallelDofMapping::init()");

    levelData = &ldata;
    feSpaces = fe;
    feSpacesUnique = uniqueFe;
    hasNonLocalDofs = bNonLocalDofs;
    

    // === Init the mapping for all different FE spaces. ===

    for (vector<const FiniteElemSpace*>::iterator it = feSpacesUnique.begin();
	 it != feSpacesUnique.end(); ++it) {
      addFeSpace(*it);
      data[*it].setNeedGlobalMapping(needGlobalMapping);
      data[*it].setNonLocalDofs(hasNonLocalDofs);
    }
  }


  void ParallelDofMapping::clear()
  {
    FUNCNAME("ParallelDofMapping::clear()");

    TEST_EXIT_DBG(levelData)("No mesh level data object defined!\n");

    for (vector<const FiniteElemSpace*>::iterator it = feSpacesUnique.begin();
	 it != feSpacesUnique.end(); ++it)
      data[*it].clear();

    int nLevel = levelData->getLevelNumber();
    nRankDofs.resize(nLevel);
    nLocalDofs.resize(nLevel);
    nOverallDofs.resize(nLevel);
    rStartDofs.resize(nLevel);
    dofToMatIndex.resize(nLevel);

    for (int i = 0; i < nLevel; i++) {
      nRankDofs[i] = -1;
      nLocalDofs[i] = -1;
      nOverallDofs[i] = -1;
      rStartDofs[i] = -1;
      dofToMatIndex[i].clear();
    }
  }

  
  void ParallelDofMapping::setMpiComm(MPI::Intracomm &m, int l)
  {
    mpiComm = m;
    meshLevel = l;

    for (vector<const FiniteElemSpace*>::iterator it = feSpacesUnique.begin();
	 it != feSpacesUnique.end(); ++it)
      data[*it].setMpiComm(m, l);
  }


  void ParallelDofMapping::setDofComm(DofComm &dc)
  {
    FUNCNAME("ParallelDofMapping::setDofComm()");

    dofComm = &dc;

    // Add the DOF communicator also to all FE space DOF mappings.
    for (vector<const FiniteElemSpace*>::iterator it = feSpacesUnique.begin();
	 it != feSpacesUnique.end(); ++it)
      data[*it].setDofComm(dc);
  }


  void ParallelDofMapping::addFeSpace(const FiniteElemSpace* feSpace)
  {
    FUNCNAME("ParallelDofMapping::addFeSpace()");
    
    if (data.count(feSpace))
      data.find(feSpace)->second.clear();
    else
      data.insert(make_pair(feSpace, FeSpaceDofMap(levelData)));
    
    data.find(feSpace)->second.setFeSpace(feSpace);
  }    


  int ParallelDofMapping::computeRankDofs(int level)
  {
    FUNCNAME("ParallelDofMapping::computeRankDofs()");
    
    int result = 0;
    for (unsigned int i = 0; i < feSpaces.size(); i++) {
      TEST_EXIT_DBG(data.count(feSpaces[i]))("Should not happen!\n");
      result += data[feSpaces[i]].nRankDofs[level];
    }
    
    return result;
  }


  int ParallelDofMapping::computeLocalDofs(int level)
  {
    FUNCNAME("ParallelDofMapping::computeLocalDofs()");
    
    int result = 0;
    for (unsigned int i = 0; i < feSpaces.size(); i++) {
      TEST_EXIT_DBG(data.count(feSpaces[i]))("Should not happen!\n");
      result += data[feSpaces[i]].nLocalDofs[level];
    }
    
    return result;
  }


  int ParallelDofMapping::computeOverallDofs(int level)
  {
    FUNCNAME("ParallelDofMapping::computeOverallDofs()");

    int result = 0;
    for (unsigned int i = 0; i < feSpaces.size(); i++) {
      TEST_EXIT_DBG(data.count(feSpaces[i]))("Should not happen!\n");
      result += data.find(feSpaces[i])->second.nOverallDofs[level];
    }
    
    return result;
  }


  int ParallelDofMapping::computeStartDofs(int level)
  {
    FUNCNAME("ParallelDofMapping::computeStartDofs()");

    int result = 0;
    for (unsigned int i = 0; i < feSpaces.size(); i++) {
      TEST_EXIT_DBG(data.count(feSpaces[i]))("Should not happen!\n");
      result += data.find(feSpaces[i])->second.rStartDofs[level];
    }
    
    return result;
  }


  void ParallelDofMapping::update()
  {
    FUNCNAME("ParallelDofMapping::update()");

    // First, update all FE space DOF mappings.
    for (vector<const FiniteElemSpace*>::iterator it = feSpacesUnique.begin();
	 it != feSpacesUnique.end(); ++it)
      data[*it].update();
    
    int nLevel = levelData->getLevelNumber();
    for (int i = 0; i < nLevel; i++) {
      // Compute all numbers from this mappings.

      nRankDofs[i] = computeRankDofs(i);
      nLocalDofs[i] = computeLocalDofs(i);
      nOverallDofs[i] = computeOverallDofs(i);
      rStartDofs[i] = computeStartDofs(i);
      
      // And finally, compute the matrix indices.
      if (needMatIndex)
	computeMatIndex(needMatIndexFromGlobal, i);
    }
  }
  

  void ParallelDofMapping::update(vector<const FiniteElemSpace*>& fe)
  {
    FUNCNAME("ParallelDofMapping::update()");

    for (vector<const FiniteElemSpace*>::iterator it = fe.begin();
	 it != fe.end(); ++it)
      if (find(feSpacesUnique.begin(), feSpacesUnique.end(), *it) == 
	  feSpacesUnique.end())
	ERROR_EXIT("Wrong FE space!\n");

    feSpaces = fe;
    update();
  }

  
  void ParallelDofMapping::computeMatIndex(bool globalIndex, int level)
  {
    FUNCNAME("ParallelDofMapping::computeMatIndex()");

    dofToMatIndex[level].clear();
    
    // The offset is always added to the local matrix index. The offset for the
    // DOFs in the first FE spaces is the smalled global index of a DOF that is
    // owned by the rank.
    int offset = rStartDofs[level];
    

    // === Create the matrix indices for all component FE spaces. ===

    for (unsigned int i = 0; i < feSpaces.size(); i++) {

      // Traverse all DOFs of the FE space and create for all rank owned DOFs
      // a matrix index.
      DofMap& dofMap = data[feSpaces[i]].getMap(level);
      for (DofMap::iterator it = dofMap.begin(); it != dofMap.end(); ++it) {
	if (data[feSpaces[i]].isRankDof(it->first, level)) {
	  int globalMatIndex = it->second.local + offset;
	  if (globalIndex)
	    dofToMatIndex[level].add(i, it->second.global, globalMatIndex);
	  else
	    dofToMatIndex[level].add(i, it->first, globalMatIndex);
	}
      }
      
      // Increase the offset for the next FE space by the number of DOFs owned 
      // by the rank in the current FE space.
      offset += data[feSpaces[i]].nRankDofs[level];
	
      // If there are no non local DOFs, continue with the next FE space.
      if (!hasNonLocalDofs)
	continue;
      
      TEST_EXIT_DBG(dofComm != NULL)("No communicator given!\n");
      
      // === Communicate the matrix indices for all DOFs that are on some ===
      // === interior boundaries.                                         ===

      StdMpi<vector<DegreeOfFreedom> > stdMpi(mpiComm);
      for (DofComm::Iterator it(dofComm->getSendDofs(), level, feSpaces[i]); 
	   !it.end(); it.nextRank()) {
	vector<DegreeOfFreedom> sendGlobalDofs;
	
	for (; !it.endDofIter(); it.nextDof())
	  if (dofMap.count(it.getDofIndex()))
	    if (globalIndex)
	      sendGlobalDofs.push_back(dofToMatIndex[level].get(i, dofMap[it.getDofIndex()].global));
	    else
	      sendGlobalDofs.push_back(dofToMatIndex[level].get(i, it.getDofIndex()));
	
	int rank = it.getRank();
	if (meshLevel > 0)
	  rank = levelData->mapRank(rank, 0, meshLevel);
	
	stdMpi.send(rank, sendGlobalDofs);
      }
      
      for (DofComm::Iterator it(dofComm->getRecvDofs(), level, feSpaces[i]); 
	   !it.end(); it.nextRank()) {
	int rank = it.getRank();
	if (meshLevel > 0)
	  rank = levelData->mapRank(rank, 0, meshLevel);

	stdMpi.recv(rank);
      }
      
      stdMpi.startCommunication();
      
      {
	for (DofComm::Iterator it(dofComm->getRecvDofs(), level, feSpaces[i]); 
	     !it.end(); it.nextRank()) {
	  int rank = it.getRank();
	  if (meshLevel > 0)
	    rank = levelData->mapRank(rank, 0, meshLevel);
	  
	  int counter = 0;
	  for (; !it.endDofIter(); it.nextDof()) {
	    if (dofMap.count(it.getDofIndex())) {
	      DegreeOfFreedom d = stdMpi.getRecvData(rank)[counter++];
	      if (globalIndex)
		dofToMatIndex[level].add(i, dofMap[it.getDofIndex()].global, d);
	      else
		dofToMatIndex[level].add(i, it.getDofIndex(), d);
	    }
	  }
	}
      }
    }
  }
  
}