CommCreator.cpp

Go to the documentation of this file.

// -*- C++ -*-
/***************************************************************************
 *
 * The IPPL Framework
 *
 * This program was prepared by PSI.
 * All rights in the program are reserved by PSI.
 * Neither PSI nor the author(s)
 * makes any warranty, express or implied, or assumes any liability or
 * responsibility for the use of this software
 *
 * Visit www.amas.web.psi for more details
 *
 ***************************************************************************/
 
// -*- C++ -*-
/***************************************************************************
 *
 * The IPPL Framework
 *
 *
 * Visit http://people.web.psi.ch/adelmann/ for more details
 *
 ***************************************************************************/
 
#include "Message/CommCreator.h"
#include "Message/Communicate.h"
#include "Message/CommMPI.h"
 
#include <cstring>
 
// static data for this file
static const char *CommLibraryNames[CommCreator::COMMLIBRARIES] =
  { "mpi", "serial" };
 
static const char *CommLibraryList = "mpi or serial";
 
 
// return the name of the Nth library
const char *CommCreator::getLibraryName(int n)
{
    
    if (n >= 0 && n < COMMLIBRARIES)
        return CommLibraryNames[n];
    else
        return 0;
}
 
 
// return a list of all the libraries, as a single string
const char *CommCreator::getAllLibraryNames()
{
    
    return CommLibraryList;
}
 
 
bool CommCreator::supported(int cm)
{
    
  if (cm == MPI) {
    return true;
  }
  else if (cm == SERIAL) {
    return true;
  }
 return false;
}
 
 
// return the index of the given named library, or (-1) if not found
int CommCreator::libindex(const char *nm)
{
    
    for (int i=0; i < COMMLIBRARIES; ++i)
    {
        if (strcmp(nm, getLibraryName(i)) == 0)
            return i;
    }
 
    // if here, it was not found
    return (-1);
}
 
 
// create a new Communicate object.  Arguments = type, argc, argv, num nodes,
// whether to do initialization or not (ignored by some libs).
// If the type code is illegal, or the comm library is not supported,
// return 0.
Communicate *CommCreator::create(int cm, int& argc, char**& argv, int nodes,
                                 bool doinit, MPI_Comm mpicomm)
{
 
    Communicate *comm = 0;
 
    // to avoid warning message
    if (doinit) { }
 
    if (cm == MPI)
    {
        comm = new CommMPI(argc, argv, nodes, doinit, mpicomm);
    }
    else if (cm == SERIAL)
    {
        // just make a dummy comm object, which does nothing
        comm = new Communicate(argc, argv, nodes);
    }
    // return the Communicate object
    return comm;
}