Teko Version of the Day
Teko_EpetraHelpers.hpp
00001 /*
00002 // @HEADER
00003 // 
00004 // ***********************************************************************
00005 // 
00006 //      Teko: A package for block and physics based preconditioning
00007 //                  Copyright 2010 Sandia Corporation 
00008 //  
00009 // Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
00010 // the U.S. Government retains certain rights in this software.
00011 //  
00012 // Redistribution and use in source and binary forms, with or without
00013 // modification, are permitted provided that the following conditions are
00014 // met:
00015 //  
00016 // 1. Redistributions of source code must retain the above copyright
00017 // notice, this list of conditions and the following disclaimer.
00018 //  
00019 // 2. Redistributions in binary form must reproduce the above copyright
00020 // notice, this list of conditions and the following disclaimer in the
00021 // documentation and/or other materials provided with the distribution.
00022 //  
00023 // 3. Neither the name of the Corporation nor the names of the
00024 // contributors may be used to endorse or promote products derived from
00025 // this software without specific prior written permission. 
00026 //  
00027 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
00028 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00029 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
00030 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
00031 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
00032 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
00033 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
00034 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
00035 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
00036 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
00037 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00038 //  
00039 // Questions? Contact Eric C. Cyr (eccyr@sandia.gov)
00040 // 
00041 // ***********************************************************************
00042 // 
00043 // @HEADER
00044 
00045 */
00046 
00047 #ifndef __Teko_EpetraHelpers_hpp__
00048 #define __Teko_EpetraHelpers_hpp__
00049 
00050 // stl includes
00051 #include <string>
00052 
00053 // Epetra includes
00054 #include "Epetra_Operator.h"
00055 #include "Epetra_CrsMatrix.h"
00056 #include "Epetra_MultiVector.h"
00057 
00058 // Teuchos includes
00059 #include "Teuchos_RCP.hpp"
00060 
00061 // Thyra includes
00062 #include "Thyra_VectorBase.hpp"
00063 #include "Thyra_DefaultSpmdMultiVector.hpp"
00064 
00065 namespace Teko {
00066 
00067 namespace Epetra {
00068 
00078 void fillDefaultSpmdMultiVector(Teuchos::RCP<Thyra::DefaultSpmdMultiVector<double> > & spmdMV,
00079                                 Teuchos::RCP<Epetra_MultiVector> & epetraMV);
00080 
00091 const Teuchos::RCP<const Thyra::LinearOpBase<double> > thyraDiagOp(const Teuchos::RCP<const Epetra_Vector> & ev,
00092                                                                    const Epetra_Map & map,const std::string & lbl="ANYM");
00093 
00104 const Teuchos::RCP<Thyra::LinearOpBase<double> > thyraDiagOp(const Teuchos::RCP<Epetra_Vector> & ev,
00105                                                              const Epetra_Map & map,const std::string & lbl="ANYM");
00106 
00116 void identityRowIndices(const Epetra_Map & rowMap, const Epetra_CrsMatrix & mat,std::vector<int> & outIndices);
00117 
00128 void zeroMultiVectorRowIndices(Epetra_MultiVector & mv,const std::vector<int> & zeroIndices);
00129 
00133 class ZeroedOperator : public Epetra_Operator {
00134 public:
00144    ZeroedOperator(const std::vector<int> & zeroIndices,const Teuchos::RCP<const Epetra_Operator> & op);
00145 
00147 
00148 
00150    virtual ~ZeroedOperator() {}
00151 
00153    int SetUseTranspose(bool UseTranspose) { return -1;}
00154 
00156    int Apply(const Epetra_MultiVector& X, Epetra_MultiVector& Y) const;
00157 
00159    int ApplyInverse(const Epetra_MultiVector& X, Epetra_MultiVector& Y) const 
00160    { return -1; }
00161 
00163    double NormInf() const { return -1.0; }
00164 
00166    const char* Label() const 
00167    {return ("zeroed( "+std::string(epetraOp_->Label())+" )").c_str(); }
00168 
00170    bool UseTranspose() const {return false;}
00171 
00173    bool HasNormInf() const {return false;}
00174    
00176    const Epetra_Comm & Comm() const {return epetraOp_->Comm(); }
00177 
00179    const Epetra_Map& OperatorDomainMap() const {return epetraOp_->OperatorDomainMap(); }
00180 
00182    const Epetra_Map& OperatorRangeMap() const {return epetraOp_->OperatorRangeMap(); }
00183 
00185 
00186 protected:
00187    std::vector<int> zeroIndices_;
00188    const Teuchos::RCP<const Epetra_Operator> epetraOp_;
00189 };
00190 
00191 } // end namespace Epetra
00192 } // end namespace Teko
00193 
00194 #endif
 All Classes Files Functions Variables