Teko Version of the Day
Loading...
Searching...
No Matches
Teko_BlockImplicitLinearOp.cpp
1/*
2// @HEADER
3//
4// ***********************************************************************
5//
6// Teko: A package for block and physics based preconditioning
7// Copyright 2010 Sandia Corporation
8//
9// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
10// the U.S. Government retains certain rights in this software.
11//
12// Redistribution and use in source and binary forms, with or without
13// modification, are permitted provided that the following conditions are
14// met:
15//
16// 1. Redistributions of source code must retain the above copyright
17// notice, this list of conditions and the following disclaimer.
18//
19// 2. Redistributions in binary form must reproduce the above copyright
20// notice, this list of conditions and the following disclaimer in the
21// documentation and/or other materials provided with the distribution.
22//
23// 3. Neither the name of the Corporation nor the names of the
24// contributors may be used to endorse or promote products derived from
25// this software without specific prior written permission.
26//
27// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
28// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
30// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
31// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
32// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
33// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
34// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
35// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
36// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
37// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38//
39// Questions? Contact Eric C. Cyr (eccyr@sandia.gov)
40//
41// ***********************************************************************
42//
43// @HEADER
44
45*/
46
47#include "Teko_BlockImplicitLinearOp.hpp"
48
49namespace Teko {
50
51using Teuchos::rcpFromRef;
52using Teuchos::rcp_dynamic_cast;
53using Teuchos::rcp_const_cast;
54using Teuchos::RCP;
55
56using Thyra::ProductMultiVectorBase;
57
58void
60implicitApply(const Thyra::EOpTransp M_trans,
61 const BlockedMultiVector & x, BlockedMultiVector & y,
62 const double alpha, const double beta) const
63{
64 TEUCHOS_TEST_FOR_EXCEPTION(M_trans!=Thyra::NOTRANS, std::runtime_error,
65 "Linear operators of inherited type BlockImplicitLinearOp "
66 "cannot handle conjugation (yet!)");
67
68 // call apply
69 implicitApply(x,y,alpha,beta);
70}
71
72bool BlockImplicitLinearOp::opSupportedImpl(const Thyra::EOpTransp M_trans) const
73{
74 return (M_trans == Thyra::NOTRANS);
75}
76
77void BlockImplicitLinearOp::applyImpl(
78 const Thyra::EOpTransp M_trans,
79 const Thyra::MultiVectorBase<double> & x,
80 const Teuchos::Ptr<Thyra::MultiVectorBase<double> > & y,
81 const double alpha,
82 const double beta
83 ) const
84{
85 // cast source vector
86 RCP<const ProductMultiVectorBase<double> > src =
87 rcp_dynamic_cast<const ProductMultiVectorBase<double> >(rcpFromRef(x));
88 BlockedMultiVector srcX = rcp_const_cast<ProductMultiVectorBase<double> >(src);
89
90 // cast destination vector
91 BlockedMultiVector destY =
92 rcp_dynamic_cast<ProductMultiVectorBase<double> >(rcpFromPtr(y));
93
94 // call apply
95 implicitApply(M_trans,srcX,destY,alpha,beta);
96}
97
98} // end namespace Teko
virtual void implicitApply(const BlockedMultiVector &x, BlockedMultiVector &y, const double alpha=1.0, const double beta=0.0) const =0
Perform a matrix vector multiply with this implicitly defined blocked operator.
virtual bool opSupportedImpl(const Thyra::EOpTransp M_trans) const
Functions required by Thyra::LinearOpBase.