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_StridedMappingStrategy_hpp__
00048 #define __Teko_StridedMappingStrategy_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
00072 namespace Teko {
00073 namespace Epetra {
00074
00075 class StridedMappingStrategy : public MappingStrategy {
00076 public:
00078
00079
00089 StridedMappingStrategy(const std::vector<int> & vars,const Teuchos::RCP<const Epetra_Map> & map, const Epetra_Comm & comm);
00091
00093
00094
00102 virtual void copyEpetraIntoThyra(const Epetra_MultiVector& epetra_X,
00103 const Teuchos::Ptr<Thyra::MultiVectorBase<double> > & thyra_X) const;
00104
00112 virtual void copyThyraIntoEpetra(const Teuchos::RCP<const Thyra::MultiVectorBase<double> > & thyra_Y,
00113 Epetra_MultiVector& epetra_Y) const;
00114
00122 virtual const Teuchos::RCP<const Epetra_Map> domainMap() const
00123 { return domainMap_; }
00124
00132 virtual const Teuchos::RCP<const Epetra_Map> rangeMap() const
00133 { return rangeMap_; }
00134
00139 virtual std::string toString() const
00140 { return std::string("StridedMappingStrategy"); }
00141
00143
00145
00146
00161 void buildBlockTransferData(const std::vector<int> & vars,const Teuchos::RCP<const Epetra_Map> & baseMap,
00162 const Epetra_Comm & comm);
00163
00175 const std::vector<std::pair<int,Teuchos::RCP<Epetra_Map> > > & getMaps() const
00176 { return blockMaps_; }
00177
00189 const Teuchos::RCP<Thyra::BlockedLinearOpBase<double> >
00190 buildBlockedThyraOp(const Teuchos::RCP<const Epetra_CrsMatrix> & mat,const std::string & label="<ANYM>") const;
00191
00201 void rebuildBlockedThyraOp(const RCP<const Epetra_CrsMatrix> & mat,
00202 const RCP<Thyra::BlockedLinearOpBase<double> > & A) const;
00203
00205
00206 protected:
00207
00208
00210
00211 Teuchos::RCP<const Epetra_Map> domainMap_;
00212 Teuchos::RCP<const Epetra_Map> rangeMap_;
00214
00216
00217 std::vector<std::pair<int,Teuchos::RCP<Epetra_Map> > > blockMaps_;
00218 std::vector<Teuchos::RCP<Epetra_Export> > blockExport_;
00219 std::vector<Teuchos::RCP<Epetra_Import> > blockImport_;
00221 };
00222
00223 }
00224 }
00225
00226 #endif