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 #include "LOCA_BorderedSolver_JacobianOperator.H"
00043 #include "LOCA_Abstract_TransposeSolveGroup.H"
00044
00045 LOCA::BorderedSolver::JacobianOperator::
00046 JacobianOperator(const Teuchos::RCP<const NOX::Abstract::Group>& grp) :
00047 grpPtr(grp)
00048 {
00049 }
00050
00051 LOCA::BorderedSolver::JacobianOperator::
00052 ~JacobianOperator()
00053 {
00054 }
00055
00056 Teuchos::RCP<const NOX::Abstract::Group>
00057 LOCA::BorderedSolver::JacobianOperator::
00058 getGroup() const
00059 {
00060 return grpPtr;
00061 }
00062
00063 NOX::Abstract::Group::ReturnType
00064 LOCA::BorderedSolver::JacobianOperator::
00065 apply(const NOX::Abstract::MultiVector& X,
00066 NOX::Abstract::MultiVector& Y) const
00067 {
00068 return grpPtr->applyJacobianMultiVector(X, Y);
00069 }
00070
00071 NOX::Abstract::Group::ReturnType
00072 LOCA::BorderedSolver::JacobianOperator::
00073 applyTranspose(const NOX::Abstract::MultiVector& X,
00074 NOX::Abstract::MultiVector& Y) const
00075 {
00076 return grpPtr->applyJacobianTransposeMultiVector(X, Y);
00077 }
00078
00079 NOX::Abstract::Group::ReturnType
00080 LOCA::BorderedSolver::JacobianOperator::
00081 applyInverse(Teuchos::ParameterList& params,
00082 const NOX::Abstract::MultiVector& B,
00083 NOX::Abstract::MultiVector& X) const
00084 {
00085 return grpPtr->applyJacobianInverseMultiVector(params, B, X);
00086 }
00087
00088 NOX::Abstract::Group::ReturnType
00089 LOCA::BorderedSolver::JacobianOperator::
00090 applyInverseTranspose(Teuchos::ParameterList& params,
00091 const NOX::Abstract::MultiVector& B,
00092 NOX::Abstract::MultiVector& X) const
00093 {
00094 Teuchos::RCP<const LOCA::Abstract::TransposeSolveGroup> tsgrp =
00095 Teuchos::rcp_dynamic_cast<const LOCA::Abstract::TransposeSolveGroup>(grpPtr);
00096 if (tsgrp != Teuchos::null)
00097 return tsgrp->applyJacobianTransposeInverseMultiVector(params, B, X);
00098 else
00099 return NOX::Abstract::Group::NotDefined;
00100 }