Thyra_DefaultClusteredSpmdProductVectorSpaceDecl.hpp

// @HEADER
// ***********************************************************************
// 
//    Thyra: Interfaces and Support for Abstract Numerical Algorithms
//                 Copyright (2004) Sandia Corporation
// 
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
// license for use of this work by or on behalf of the U.S. Government.
// 
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation; either version 2.1 of the
// License, or (at your option) any later version.
//  
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//  
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA
// Questions? Contact Michael A. Heroux (maherou@sandia.gov) 
// 
// ***********************************************************************
// @HEADER

#ifndef THYRA_DEFAULT_CLUSTERED_SPMD_PRODUCT_VECTOR_SPACE_DECL_HPP
#define THYRA_DEFAULT_CLUSTERED_SPMD_PRODUCT_VECTOR_SPACE_DECL_HPP

#include "Thyra_VectorSpaceBase_decl.hpp"
#include "Thyra_ProductVectorSpaceBase.hpp"
#include "Thyra_VectorSpaceDefaultBaseDecl.hpp"

namespace Thyra {

template<class Scalar>
class DefaultClusteredSpmdProductVectorSpace
  : public ProductVectorSpaceBase<Scalar>
  , protected VectorSpaceDefaultBase<Scalar>
{
public:


  DefaultClusteredSpmdProductVectorSpace();

  DefaultClusteredSpmdProductVectorSpace(
    const Teuchos::RCP<const Teuchos::Comm<Index> >          &intraClusterComm
    ,const int                                                       clusterRootRank
    ,const Teuchos::RCP<const Teuchos::Comm<Index> >         &interClusterComm
    ,const int                                                       numBlocks
    ,const Teuchos::RCP<const VectorSpaceBase<Scalar> >      vecSpaces[]
    );

  void initialize(
    const Teuchos::RCP<const Teuchos::Comm<Index> >          &intraClusterComm
    ,const int                                                       clusterRootRank
    ,const Teuchos::RCP<const Teuchos::Comm<Index> >         &interClusterComm
    ,const int                                                       numBlocks
    ,const Teuchos::RCP<const VectorSpaceBase<Scalar> >      vecSpaces[]
    );

  Teuchos::RCP<const Teuchos::Comm<Index> > intraClusterComm() const;

  int clusterRootRank() const;

  Teuchos::RCP<const Teuchos::Comm<Index> > interClusterComm() const;

  int clusterSubDim() const;

  int clusterOffset() const;
  
  
  std::string description() const;

  Index dim() const;
  bool isCompatible(const VectorSpaceBase<Scalar>& vecSpc) const;
  Teuchos::RCP< const VectorSpaceFactoryBase<Scalar> > smallVecSpcFcty() const;
  Scalar scalarProd( const VectorBase<Scalar>& x, const VectorBase<Scalar>& y ) const;
  void scalarProdsImpl(
    const MultiVectorBase<Scalar>& X, const MultiVectorBase<Scalar>& Y,
    const ArrayView<Scalar> &scalarProds ) const;
  bool isEuclidean() const;
  bool hasInCoreView(
    const Range1D& rng, const EViewType viewType, const EStrideType strideType
    ) const;
  Teuchos::RCP< const VectorSpaceBase<Scalar> > clone() const;


  int numBlocks() const;
  Teuchos::RCP<const VectorSpaceBase<Scalar> > getBlock(const int k) const; 


protected:


  Teuchos::RCP<VectorBase<Scalar> > createMember() const;
  Teuchos::RCP<MultiVectorBase<Scalar> > createMembers(int numMembers) const;


private:

  // //////////////////////////////////////
  // Private types

  typedef std::vector<Teuchos::RCP<const VectorSpaceBase<Scalar> > >  vecSpaces_t;

  // //////////////////////////////////////
  // Private data members

  Teuchos::RCP<const Teuchos::Comm<Index> >  intraClusterComm_;
  int                                                      clusterRootRank_;
  Teuchos::RCP<const Teuchos::Comm<Index> >  interClusterComm_;
  vecSpaces_t vecSpaces_; // size == numBlocks
  bool isEuclidean_;
  Index globalDim_;     // The global dimension of all of the block vectors in
                        // all of the clusters.
  Index clusterSubDim_; // The some of the dimensions of the block vector
                        // spaces in this cluster
  Index clusterOffset_; // The offset of the first element in the first
                        // constituent vector in this cluster in the
                        // w.r.t. the global vector.
  
};

// ///////////////////////////
// Inline defintions

template<class Scalar>
Teuchos::RCP<const Teuchos::Comm<Index> >
DefaultClusteredSpmdProductVectorSpace<Scalar>::intraClusterComm() const
{
  return intraClusterComm_;
}

template<class Scalar>
int DefaultClusteredSpmdProductVectorSpace<Scalar>::clusterRootRank() const
{
  return clusterRootRank_;
}

template<class Scalar>
Teuchos::RCP<const Teuchos::Comm<Index> >
DefaultClusteredSpmdProductVectorSpace<Scalar>::interClusterComm() const
{
  return interClusterComm_;
}

template<class Scalar>
int DefaultClusteredSpmdProductVectorSpace<Scalar>::clusterSubDim() const
{
  return clusterSubDim_;
}

template<class Scalar>
int DefaultClusteredSpmdProductVectorSpace<Scalar>::clusterOffset() const
{
  return clusterOffset_;
}

} // end namespace Thyra

#endif // THYRA_DEFAULT_CLUSTERED_SPMD_PRODUCT_VECTOR_SPACE_DECL_HPP

---