• Main Page
  • Namespaces
  • Classes
  • Files
  • File List
  • File Members

Meros_LinearSolver.hpp

Go to the documentation of this file.
00001 // @HEADER
00002 // ***********************************************************************
00003 // 
00004 //              Meros: Segregated Preconditioning Package
00005 //                 Copyright (2004) Sandia Corporation
00006 // 
00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00008 // license for use of this work by or on behalf of the U.S. Government.
00009 // 
00010 // This library is free software; you can redistribute it and/or modify
00011 // it under the terms of the GNU Lesser General Public License as
00012 // published by the Free Software Foundation; either version 2.1 of the
00013 // License, or (at your option) any later version.
00014 //  
00015 // This library is distributed in the hope that it will be useful, but
00016 // WITHOUT ANY WARRANTY; without even the implied warranty of
00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00018 // Lesser General Public License for more details.
00019 //  
00020 // You should have received a copy of the GNU Lesser General Public
00021 // License along with this library; if not, write to the Free Software
00022 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
00023 // USA
00024 // Questions? Contact Michael A. Heroux (maherou@sandia.gov) 
00025 // 
00026 // ***********************************************************************
00027 // @HEADER
00028 
00029 #ifndef MEROS_LINEAR_SOLVER_H
00030 #define MEROS_LINEAR_SOLVER_H
00031 
00032 #include "Meros_LinearSolveStrategy.hpp"
00033 #include "Meros_InverseOperator.hpp"
00034 
00035 
00036 namespace Meros 
00037 {
00038   using namespace Teuchos;
00039   using namespace Thyra;
00040 
00044   template <class Scalar>
00045   class LinearSolver
00046   {
00047   public:
00049     LinearSolver(const LinearSolveStrategy<Scalar>& strategy,
00050                  const LinearOperator<Scalar>& op)
00051       : lows_(strategy.getLOWS(op)),
00052         op_(op),
00053         strategy_(strategy)
00054     {;}
00055 
00057     SolveStatus<typename PromotionTraits<Scalar, Scalar>::promote> solve(const Vector<Scalar>& rhs,
00058                                       Vector<Scalar>& soln) const
00059     {
00060 
00061       SolveStatus<typename PromotionTraits<Scalar, Scalar>::promote> rtn;
00062 
00063       BlockSolveCriteria<typename PromotionTraits<Scalar, Scalar>::promote>* dummy = 0;
00064       if (soln.ptr().get()==0) soln=op_.domain().createMember();
00065       lows_->solve(NONCONJ_ELE, *rhs.constPtr(),
00066                    soln.ptr().get(), 1, 
00067                    dummy,
00068                    &rtn);
00069 
00070       return rtn;
00071     }
00072 
00073   private:
00074     RCP<const LinearOpWithSolveBase<Scalar> > lows_;
00075     LinearOperator<Scalar> op_;
00076     LinearSolveStrategy<Scalar> strategy_;
00077       
00078   };
00079 
00080 
00081 } // namespace Meros
00082 
00083 #endif // MEROS_PCD_OPERATOR_SOURCE_H