Panzer Version of the Day
Loading...
Searching...
No Matches
Panzer_Response_Functional.hpp
Go to the documentation of this file.
1// @HEADER
2// ***********************************************************************
3//
4// Panzer: A partial differential equation assembly
5// engine for strongly coupled complex multiphysics systems
6// Copyright (2011) Sandia Corporation
7//
8// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
9// the U.S. Government retains certain rights in this software.
10//
11// Redistribution and use in source and binary forms, with or without
12// modification, are permitted provided that the following conditions are
13// met:
14//
15// 1. Redistributions of source code must retain the above copyright
16// notice, this list of conditions and the following disclaimer.
17//
18// 2. Redistributions in binary form must reproduce the above copyright
19// notice, this list of conditions and the following disclaimer in the
20// documentation and/or other materials provided with the distribution.
21//
22// 3. Neither the name of the Corporation nor the names of the
23// contributors may be used to endorse or promote products derived from
24// this software without specific prior written permission.
25//
26// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
27// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
30// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
31// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
32// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
33// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
34// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
35// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
36// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37//
38// Questions? Contact Roger P. Pawlowski (rppawlo@sandia.gov) and
39// Eric C. Cyr (eccyr@sandia.gov)
40// ***********************************************************************
41// @HEADER
42
43#ifndef __Panzer_Response_Functional_hpp__
44#define __Panzer_Response_Functional_hpp__
45
46#include <string>
47
48
49#include <mpi.h> // need for comm
50
51#include "Teuchos_RCP.hpp"
52
53#include "Thyra_VectorBase.hpp"
54#include "Thyra_VectorSpaceBase.hpp"
55
56#include "PanzerDiscFE_config.hpp"
57#ifdef PANZER_HAVE_EPETRA_STACK
58#include "Epetra_Map.h"
59#include "Epetra_Vector.h"
60#include "Epetra_MpiComm.h"
61#endif
62
68
69
70namespace panzer {
71
76template <typename EvalT>
79public:
80 typedef typename EvalT::ScalarT ScalarT;
81
82 Response_Functional(const std::string & responseName,MPI_Comm comm,
83 const Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > & linObjFact=Teuchos::null)
84 : ResponseMESupport_Default<EvalT>(responseName,comm), value(0.0), linObjFactory_(linObjFact)
85 {
86 if(linObjFactory_!=Teuchos::null) {
87 // requires thyra object factory
88 thyraObjFactory_ = Teuchos::rcp_dynamic_cast<const panzer::ThyraObjFactory<double> >(linObjFactory_,true);
89 setSolnVectorSpace(thyraObjFactory_->getThyraDomainSpace());
90
91 // build a ghosted container, with a solution vector
92 ghostedContainer_ = linObjFactory_->buildGhostedLinearObjContainer();
93
94 // set ghosted container (work space for assembly)
96
97 using Teuchos::rcp_dynamic_cast;
98 }
99 }
100
103
105 virtual void scatterResponse();
106
107 virtual void initializeResponse()
108 { value = 0.0; if(ghostedContainer_!=Teuchos::null) ghostedContainer_->initialize(); }
109
110 // from ResponseMESupport_Default
111
113 virtual std::size_t localSizeRequired() const { return 1; }
114
116 virtual bool vectorIsDistributed() const { return false; }
117
119 Teuchos::RCP<Thyra::VectorBase<double> > getGhostedVector() const
120 { return Teuchos::rcp_dynamic_cast<const ThyraObjContainer<double> >(ghostedContainer_)->get_x_th(); }
121
122 void adjustForDirichletConditions(const GlobalEvaluationData & localBCRows,const GlobalEvaluationData & globalBCRows);
123
124private:
126 void setSolnVectorSpace(const Teuchos::RCP<const Thyra::VectorSpaceBase<double> > & soln_vs);
127
128 // hide these methods
131
132 Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > linObjFactory_;
133 Teuchos::RCP<const panzer::ThyraObjFactory<double> > thyraObjFactory_;
134
135 Teuchos::RCP<LinearObjContainer> uniqueContainer_;
136 Teuchos::RCP<LinearObjContainer> ghostedContainer_;
137};
138
139}
140
141#endif
Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > linObjFactory_
Response_Functional(const Response_Functional &)
Teuchos::RCP< LinearObjContainer > ghostedContainer_
virtual void scatterResponse()
This simply does global summation, then shoves the result into a vector.
virtual bool vectorIsDistributed() const
Is the vector distributed (or replicated)
Response_Functional(const std::string &responseName, MPI_Comm comm, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &linObjFact=Teuchos::null)
virtual std::size_t localSizeRequired() const
What is the number of values you need locally.
Teuchos::RCP< Thyra::VectorBase< double > > getGhostedVector() const
Get ghosted responses (this will be filled by the evaluator)
void adjustForDirichletConditions(const GlobalEvaluationData &localBCRows, const GlobalEvaluationData &globalBCRows)
ScalarT value
provide direct access, this thing is pretty simple
Teuchos::RCP< LinearObjContainer > uniqueContainer_
void setSolnVectorSpace(const Teuchos::RCP< const Thyra::VectorSpaceBase< double > > &soln_vs)
Set solution vector space.
Teuchos::RCP< const panzer::ThyraObjFactory< double > > thyraObjFactory_