Thyra_PolynomialVectorTraits.hpp

// @HEADER
// *****************************************************************************
//    Thyra: Interfaces and Support for Abstract Numerical Algorithms
//
// Copyright 2004 NTESS and the Thyra contributors.
// SPDX-License-Identifier: BSD-3-Clause
// *****************************************************************************
// @HEADER

#ifndef THYRA_POLYNOMIAL_VECTOR_TRAITS_HPP
#define THYRA_POLYNOMIAL_VECTOR_TRAITS_HPP

#include "Thyra_VectorBase.hpp"
#include "Teuchos_PolynomialTraits.hpp"
#include "Thyra_VectorStdOps.hpp"
#include "Thyra_MultiVectorStdOps.hpp"

namespace Teuchos {


  template <typename Scalar>
  class PolynomialTraits< Thyra::VectorBase<Scalar> > {
  public:

    typedef Thyra::VectorBase<Scalar> coeff_type;

    typedef Scalar scalar_type;

    static inline Teuchos::RCP<coeff_type> clone(const coeff_type& c) {
      return c.clone_v();
    }

    static inline void copy(const coeff_type& x, coeff_type* y) {
      Thyra::copy(x, Teuchos::ptr(y));
    }

    static inline void assign(coeff_type* y, const scalar_type& alpha) {
      Thyra::assign(Teuchos::ptr(y), alpha);
    }

    static inline void update(coeff_type* y, const coeff_type& x, 
            const scalar_type& beta) {
      Thyra::Vp_V(Teuchos::ptr(y), x, beta);
    }

  }; // class PolynomialTraits< Thyra::VectorBase<Scalar> >

} // end namespace Teuchos

#endif  // THYRA_POLYNOMIAL_VECTOR_TRAITS_HPP