FEApp_Application.hpp

Go to the documentation of this file.

// $Id: FEApp_Application.hpp,v 1.5.2.2 2007/08/14 00:19:05 etphipp Exp $ 
// $Source: /space/CVS/Trilinos/packages/sacado/example/FEApp/FEApp_Application.hpp,v $ 
// @HEADER
// ***********************************************************************
// 
//                           Sacado Package
//                 Copyright (2006) Sandia Corporation
// 
// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
// the U.S. Government retains certain rights in this software.
// 
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation; either version 2.1 of the
// License, or (at your option) any later version.
//  
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//  
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA
// Questions? Contact David M. Gay (dmgay@sandia.gov) or Eric T. Phipps
// (etphipp@sandia.gov).
// 
// ***********************************************************************
// @HEADER

#ifndef FEAPP_APPLICATION_HPP
#define FEAPP_APPLICATION_HPP

#include <vector>

#include "Teuchos_RCP.hpp"
#include "Teuchos_ParameterList.hpp"
#include "Teuchos_SerialDenseMatrix.hpp"
#include "Epetra_Vector.h"
#include "Epetra_CrsMatrix.h"
#include "Epetra_Import.h"
#include "Epetra_Export.h"

#include "FEApp_NodeBC.hpp"
#include "FEApp_AbstractPDE.hpp"
#include "FEApp_AbstractQuadrature.hpp"
#include "FEApp_AbstractDiscretization.hpp"
#include "FEApp_AbstractProblem.hpp"
#include "FEApp_TemplateTypes.hpp"

#include "Sacado_ScalarParameterLibrary.hpp"
#include "Sacado_ScalarParameterVector.hpp"

namespace FEApp {

  class Application {
  public:

    Application(const std::vector<double>& coords,
    const Teuchos::RCP<const Epetra_Comm>& comm,
    const Teuchos::RCP<Teuchos::ParameterList>& params,
    bool is_transient);

    ~Application();

    Teuchos::RCP<const Epetra_Map> getMap() const;

    Teuchos::RCP<const Epetra_CrsGraph> getJacobianGraph() const;

    Teuchos::RCP<const Epetra_Vector> getInitialSolution() const;

    Teuchos::RCP<Sacado::ScalarParameterLibrary> getParamLib();

    bool isTransient() const;


    void computeGlobalResidual(const Epetra_Vector* xdot,
             const Epetra_Vector& x,
             const Sacado::ScalarParameterVector* p,
             Epetra_Vector& f);


    void computeGlobalJacobian(double alpha, double beta,
             const Epetra_Vector* xdot,
             const Epetra_Vector& x,
             const Sacado::ScalarParameterVector* p,
             Epetra_Vector* f,
             Epetra_CrsMatrix& jac);


    void computeGlobalTangent(double alpha, double beta,
            bool sum_derivs,
            const Epetra_Vector* xdot,
            const Epetra_Vector& x,
            Sacado::ScalarParameterVector* p,
            const Epetra_MultiVector* Vx,
            const Teuchos::SerialDenseMatrix<int,double>* Vp,
            Epetra_Vector* f,
            Epetra_MultiVector* JVx,
            Epetra_MultiVector* fVp);

  private:
    
    Application(const Application&);

    Application& operator=(const Application&);

  protected:

    bool transient;
    
    Teuchos::RCP<FEApp::AbstractDiscretization> disc;

    std::vector< Teuchos::RCP<FEApp::NodeBC> > bc;

    Teuchos::RCP<const FEApp::AbstractQuadrature> quad;

    FEApp::AbstractPDE_TemplateManager<ValidTypes> pdeTM;

    Teuchos::RCP<Epetra_Vector> initial_x;

    Teuchos::RCP<Epetra_Import> importer;

    Teuchos::RCP<Epetra_Export> exporter;

    Teuchos::RCP<Epetra_Vector> overlapped_x;

    Teuchos::RCP<Epetra_Vector> overlapped_xdot;

    Teuchos::RCP<Epetra_Vector> overlapped_f;

    Teuchos::RCP<Epetra_CrsMatrix> overlapped_jac;

    Teuchos::RCP<Sacado::ScalarParameterLibrary> paramLib;

  };

}

#endif // FEAPP_APPLICATION_HPP

---