00001 // $Id: NOX_Epetra_VectorSpace_L2.C,v 1.3 2006/08/22 00:01:31 rppawlo Exp $ 00002 // $Source: /space/CVS/Trilinos/packages/nox/src-epetra/NOX_Epetra_VectorSpace_L2.C,v $ 00003 00004 //@HEADER 00005 // ************************************************************************ 00006 // 00007 // NOX: An Object-Oriented Nonlinear Solver Package 00008 // Copyright (2002) Sandia Corporation 00009 // 00010 // LOCA: Library of Continuation Algorithms Package 00011 // Copyright (2005) Sandia Corporation 00012 // 00013 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive 00014 // license for use of this work by or on behalf of the U.S. Government. 00015 // 00016 // This library is free software; you can redistribute it and/or modify 00017 // it under the terms of the GNU Lesser General Public License as 00018 // published by the Free Software Foundation; either version 2.1 of the 00019 // License, or (at your option) any later version. 00020 // 00021 // This library is distributed in the hope that it will be useful, but 00022 // WITHOUT ANY WARRANTY; without even the implied warranty of 00023 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00024 // Lesser General Public License for more details. 00025 // 00026 // You should have received a copy of the GNU Lesser General Public 00027 // License along with this library; if not, write to the Free Software 00028 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 00029 // USA 00030 // 00031 // Questions? Contact Roger Pawlowski (rppawlo@sandia.gov) or 00032 // Eric Phipps (etphipp@sandia.gov), Sandia National Laboratories. 00033 // ************************************************************************ 00034 // CVS Information 00035 // $Source: /space/CVS/Trilinos/packages/nox/src-epetra/NOX_Epetra_VectorSpace_L2.C,v $ 00036 // $Author: rppawlo $ 00037 // $Date: 2006/08/22 00:01:31 $ 00038 // $Revision: 1.3 $ 00039 // ************************************************************************ 00040 //@HEADER 00041 00042 #include "NOX_Epetra_VectorSpace_L2.H" 00043 #include "Epetra_Vector.h" 00044 00045 NOX::Epetra::VectorSpaceL2::VectorSpaceL2() 00046 { 00047 00048 } 00049 00050 NOX::Epetra::VectorSpaceL2::~VectorSpaceL2() 00051 { 00052 00053 } 00054 00055 double NOX::Epetra::VectorSpaceL2:: 00056 innerProduct(const Epetra_Vector& a, const Epetra_Vector& b) const 00057 { 00058 double dot; 00059 a.Dot(b, &dot); 00060 return dot; 00061 } 00062 00063 double NOX::Epetra::VectorSpaceL2:: 00064 norm(const Epetra_Vector& a, NOX::Abstract::Vector::NormType type) const 00065 { 00066 double n; 00067 switch (type) { 00068 case NOX::Abstract::Vector::MaxNorm: 00069 a.NormInf(&n); 00070 break; 00071 case NOX::Abstract::Vector::OneNorm: 00072 a.Norm1(&n); 00073 break; 00074 case NOX::Abstract::Vector::TwoNorm: 00075 default: 00076 a.Norm2(&n); 00077 break; 00078 } 00079 return n; 00080 }