00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047 #ifndef __Teko_BlockedMappingStrategy_hpp__
00048 #define __Teko_BlockedMappingStrategy_hpp__
00049
00050
00051 #include <vector>
00052
00053
00054 #include "Teuchos_RCP.hpp"
00055
00056
00057 #include "Thyra_MultiVectorBase.hpp"
00058 #include "Thyra_LinearOpBase.hpp"
00059 #include "Thyra_BlockedLinearOpBase.hpp"
00060
00061
00062 #include "Epetra_Comm.h"
00063 #include "Epetra_Map.h"
00064 #include "Epetra_MultiVector.h"
00065 #include "Epetra_Import.h"
00066 #include "Epetra_Export.h"
00067 #include "Epetra_CrsMatrix.h"
00068
00069
00070 #include "Teko_EpetraOperatorWrapper.hpp"
00071 #include "Teko_BlockingEpetra.hpp"
00072
00073 namespace Teko {
00074 namespace Epetra {
00075
00076 class BlockedMappingStrategy : public MappingStrategy {
00077 public:
00079
00080
00090 BlockedMappingStrategy(const std::vector<std::vector<int> > & vars,
00091 const Teuchos::RCP<const Epetra_Map> & baseMap, const Epetra_Comm & comm);
00093
00095
00096
00104 virtual void copyEpetraIntoThyra(const Epetra_MultiVector& epetra_X,
00105 const Teuchos::Ptr<Thyra::MultiVectorBase<double> > & thyra_X) const;
00106
00114 virtual void copyThyraIntoEpetra(const Teuchos::RCP<const Thyra::MultiVectorBase<double> > & thyra_Y,
00115 Epetra_MultiVector& epetra_Y) const;
00116
00124 virtual const Teuchos::RCP<const Epetra_Map> domainMap() const
00125 { return domainMap_; }
00126
00134 virtual const Teuchos::RCP<const Epetra_Map> rangeMap() const
00135 { return rangeMap_; }
00136
00141 virtual std::string toString() const
00142 { return std::string("BlockedMappingStrategy"); }
00143
00145
00147
00148
00163 void buildBlockTransferData(const std::vector<std::vector<int> > & vars,
00164 const Teuchos::RCP<const Epetra_Map> & baseMap, const Epetra_Comm & comm);
00165
00177 const std::vector<Blocking::MapPair> & getMaps() const
00178 { return blockMaps_; }
00179
00191 const Teuchos::RCP<Thyra::BlockedLinearOpBase<double> >
00192 buildBlockedThyraOp(const Teuchos::RCP<const Epetra_CrsMatrix> & mat,const std::string & label="<ANYM>") const;
00193
00203 void rebuildBlockedThyraOp(const RCP<const Epetra_CrsMatrix> & mat,
00204 const RCP<Thyra::BlockedLinearOpBase<double> > & A) const;
00205
00207
00208 protected:
00209
00210
00212
00213 Teuchos::RCP<const Epetra_Map> domainMap_;
00214 Teuchos::RCP<const Epetra_Map> rangeMap_;
00216
00218
00219 std::vector<Blocking::MapPair> blockMaps_;
00220 std::vector<Teuchos::RCP<Epetra_Import> > blockImport_;
00221 std::vector<Teuchos::RCP<Epetra_Export> > blockExport_;
00223 };
00224
00225 }
00226 }
00227
00228 #endif