PetscSolverGlobalBlockMatrix.h 2.58 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
// ============================================================================
// ==                                                                        ==
// == AMDiS - Adaptive multidimensional simulations                          ==
// ==                                                                        ==
// ==  http://www.amdis-fem.org                                              ==
// ==                                                                        ==
// ============================================================================
//
// Software License for AMDiS
//
// Copyright (c) 2010 Dresden University of Technology 
// All rights reserved.
// Authors: Simon Vey, Thomas Witkowski et al.
//
// This file is part of AMDiS
//
// See also license.opensource.txt in the distribution.



/** \file PetscSolverGlobalBlockMatrix.h */

#ifndef AMDIS_PETSC_SOLVER_GLOBAL_BLOCK_MATRIX_H
#define AMDIS_PETSC_SOLVER_GLOBAL_BLOCK_MATRIX_H

#include "AMDiS_fwd.h"
#include "parallel/PetscSolver.h"

namespace AMDiS {

  using namespace std;


  class PetscSolverGlobalBlockMatrix : public PetscSolver
  {
  public:
37 38 39 40 41 42 43 44 45 46 47 48 49
    /// Creator class
    class Creator : public OEMSolverCreator
    {
    public:
      virtual ~Creator() {}

      /// Returns a new PetscSolver object.
      OEMSolver* create() 
      { 
	return new PetscSolverGlobalBlockMatrix(this->name); 
      }
    };
    
50 51
    PetscSolverGlobalBlockMatrix(string name)
      : PetscSolver(name),
52 53
	nComponents(0),
	nBlocks(-1)
54 55 56 57 58 59
    {}

    void fillPetscMatrix(Matrix<DOFMatrix*> *mat);

    void fillPetscRhs(SystemVector *vec);

60
    void solvePetscMatrix(SystemVector &vec, AdaptInfo *adaptInfo);    
61 62 63

    void destroyMatrixData();

64 65
    void destroyVectorData();

66 67
  protected:
    /// Takes a DOF matrix and sends the values to the global PETSc matrix.
68 69
    void setDofMatrix(Mat& petscMat, DOFMatrix* mat,
		      int dispRowBlock, int dispColBlock);
70 71

    /// Takes a DOF vector and sends its values to a given PETSc vector.
72 73
    void setDofVector(Vec& petscVec, DOFVector<double>* vec);

74
    virtual void initSolver(KSP &ksp);
75
    
76
    virtual void exitSolver(KSP ksp);
77

78 79 80 81
    virtual void initPreconditioner(PC pc);

    virtual void exitPreconditioner(PC pc);
   
82
  protected:
83 84 85
    vector<Mat> nestMat;

    vector<Vec> nestVec;
86

87 88
    Vec petscSolVec;

89
    /// Number of components (= number of unknowns in the PDE)
90
    int nComponents;
91 92 93 94 95 96

    /// Number of blocks for the solver, must be 1 <= nBlocks <= nComponents
    int nBlocks;

    /// Maps to each component number the block number the component is in.
    map<int, int> componentInBlock;
97 98 99 100 101 102 103
  };


}

#endif