00001 /* @HEADER@ */ 00002 /* *********************************************************************** 00003 // 00004 // TSFExtended: Trilinos Solver Framework Extended 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 TSFSIMPLEBLOCKOP_DECL_HPP 00030 #define TSFSIMPLEBLOCKOP_DECL_HPP 00031 00032 00033 #include "SundanceDefs.hpp" 00034 #include "Teuchos_Array.hpp" 00035 #include "TSFBlockOperatorBaseDecl.hpp" 00036 #include "TSFLinearOperatorDecl.hpp" 00037 #include "TSFSimplifiedLinearOpBaseDecl.hpp" 00038 00039 00040 00041 namespace TSFExtended 00042 { 00043 using namespace Teuchos; 00044 00045 /** 00046 * Array-based block operator 00047 * 00048 * @author Kevin Long (kevin.long@ttu.edu) 00049 */ 00050 template <class Scalar> 00051 class SimpleBlockOp : public SimplifiedLinearOpWithSpaces<Scalar>, 00052 public SetableBlockOperatorBase<Scalar> 00053 { 00054 public: 00055 /** */ 00056 SimpleBlockOp(const VectorSpace<Scalar>& domain, 00057 const VectorSpace<Scalar>& range); 00058 00059 /** */ 00060 int numBlockRows() const ; 00061 00062 /** */ 00063 int numBlockCols() const ; 00064 00065 /** */ 00066 const LinearOperator<Scalar>& getBlock(int i, int j) const ; 00067 00068 /** */ 00069 LinearOperator<Scalar> getNonconstBlock(int i, int j) ; 00070 00071 /** */ 00072 void setBlock(int i, int j, const LinearOperator<Scalar>& Aij) ; 00073 00074 /** */ 00075 void applyOp(const Thyra::EOpTransp M_trans, 00076 const Vector<Scalar>& in, 00077 Vector<Scalar> out) const ; 00078 00079 private: 00080 Array<Array<LinearOperator<Scalar> > > blocks_; 00081 00082 }; 00083 00084 00085 /** \relates SimpleBlockOp Nonmember function to create a SimpleBlockOp */ 00086 template <class Scalar> 00087 LinearOperator<Scalar> makeBlockOperator( 00088 const VectorSpace<Scalar>& domain, 00089 const VectorSpace<Scalar>& range 00090 ); 00091 00092 00093 00094 00095 00096 } 00097 00098 #endif