DataTransferKit - Multiphysics Solution Transfer Services  2.0
DTK_PolynomialMatrix.hpp
Go to the documentation of this file.
1 //---------------------------------------------------------------------------//
2 /*
3  Copyright (c) 2012, Stuart R. Slattery
4  All rights reserved.
5 
6  Redistribution and use in source and binary forms, with or without
7  modification, are permitted provided that the following conditions are
8  met:
9 
10  *: Redistributions of source code must retain the above copyright
11  notice, this list of conditions and the following disclaimer.
12 
13  *: Redistributions in binary form must reproduce the above copyright
14  notice, this list of conditions and the following disclaimer in the
15  documentation and/or other materials provided with the distribution.
16 
17  *: Neither the name of the University of Wisconsin - Madison nor the
18  names of its contributors may be used to endorse or promote products
19  derived from this software without specific prior written permission.
20 
21  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
22  "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
23  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
24  A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
25  HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
26  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
27  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29  THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
31  OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 */
33 //---------------------------------------------------------------------------//
39 //---------------------------------------------------------------------------//
40 
41 #ifndef DTK_POLYNOMIALMATRIX_HPP
42 #define DTK_POLYNOMIALMATRIX_HPP
43 
44 #include "DTK_Types.hpp"
45 
46 #include <Teuchos_Comm.hpp>
47 #include <Teuchos_RCP.hpp>
48 
49 #include <Tpetra_CrsMatrix.hpp>
50 #include <Tpetra_Map.hpp>
51 #include <Tpetra_MultiVector.hpp>
52 #include <Tpetra_Operator.hpp>
53 
54 namespace DataTransferKit
55 {
56 //---------------------------------------------------------------------------//
61 //---------------------------------------------------------------------------//
62 class PolynomialMatrix : public Tpetra::Operator<double, int, SupportId>
63 {
64  public:
65  // Constructor.
67  const Teuchos::RCP<const Tpetra::MultiVector<double, int, SupportId>>
68  &polynomial,
69  const Teuchos::RCP<const Tpetra::Map<int, SupportId>> &domain_map,
70  const Teuchos::RCP<const Tpetra::Map<int, SupportId>> &range_map );
71 
74  Teuchos::RCP<const Tpetra::Map<int, SupportId>>
75  getDomainMap() const override
76  {
77  return d_domain_map;
78  }
79 
82  Teuchos::RCP<const Tpetra::Map<int, SupportId>> getRangeMap() const override
83  {
84  return d_range_map;
85  }
86 
88 
96  void
97  apply( const Tpetra::MultiVector<double, int, SupportId> &X,
98  Tpetra::MultiVector<double, int, SupportId> &Y,
99  Teuchos::ETransp mode = Teuchos::NO_TRANS,
100  double alpha = Teuchos::ScalarTraits<double>::one(),
101  double beta = Teuchos::ScalarTraits<double>::zero() ) const override;
102 
105  bool hasTransposeApply() const override { return true; }
106 
107  private:
108  // Parallel communicator.
109  Teuchos::RCP<const Teuchos::Comm<int>> d_comm;
110 
111  // The polynomial.
112  Teuchos::RCP<const Tpetra::MultiVector<double, int, SupportId>>
113  d_polynomial;
114 
115  // Domain map.
116  Teuchos::RCP<const Tpetra::Map<int, SupportId>> d_domain_map;
117 
118  // Range map.
119  Teuchos::RCP<const Tpetra::Map<int, SupportId>> d_range_map;
120 };
121 
122 //---------------------------------------------------------------------------//
123 
124 } // end namespace DataTransferKit
125 
126 //---------------------------------------------------------------------------//
127 
128 #endif // end DTK_POLYNOMIALMATRIX_HPP
129 
130 //---------------------------------------------------------------------------//
131 // end DTK_PolynomialMatrix.hpp
132 //---------------------------------------------------------------------------//
void apply(const Tpetra::MultiVector< double, int, SupportId > &X, Tpetra::MultiVector< double, int, SupportId > &Y, Teuchos::ETransp mode=Teuchos::NO_TRANS, double alpha=Teuchos::ScalarTraits< double >::one(), double beta=Teuchos::ScalarTraits< double >::zero()) const override
Computes the operator-multivector application.
bool hasTransposeApply() const override
Whether this operator supports applying the transpose or conjugate transpose.
PolynomialMatrix(const Teuchos::RCP< const Tpetra::MultiVector< double, int, SupportId >> &polynomial, const Teuchos::RCP< const Tpetra::Map< int, SupportId >> &domain_map, const Teuchos::RCP< const Tpetra::Map< int, SupportId >> &range_map)
Constructor.
Teuchos::RCP< const Tpetra::Map< int, SupportId > > getRangeMap() const override
Teuchos::RCP< const Tpetra::Map< int, SupportId > > getDomainMap() const override
Vector apply implementation for polynomial matrices.
DTK_BasicEntitySet.cpp.