MOOCHO (Single Doxygen Collection) Version of the Day
AbstractLinAlgPack_MatrixSymIdent.cpp
Go to the documentation of this file.
00001 // @HEADER
00002 // ***********************************************************************
00003 // 
00004 // Moocho: Multi-functional Object-Oriented arCHitecture for Optimization
00005 //                  Copyright (2003) Sandia Corporation
00006 // 
00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00008 // license for use of this work by or on behalf of the U.S. Government.
00009 // 
00010 // Redistribution and use in source and binary forms, with or without
00011 // modification, are permitted provided that the following conditions are
00012 // met:
00013 //
00014 // 1. Redistributions of source code must retain the above copyright
00015 // notice, this list of conditions and the following disclaimer.
00016 //
00017 // 2. Redistributions in binary form must reproduce the above copyright
00018 // notice, this list of conditions and the following disclaimer in the
00019 // documentation and/or other materials provided with the distribution.
00020 //
00021 // 3. Neither the name of the Corporation nor the names of the
00022 // contributors may be used to endorse or promote products derived from
00023 // this software without specific prior written permission.
00024 //
00025 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
00026 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00027 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
00028 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
00029 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
00030 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
00031 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
00032 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
00033 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
00034 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
00035 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00036 //
00037 // Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov) 
00038 // 
00039 // ***********************************************************************
00040 // @HEADER
00041 
00042 #include <assert.h>
00043 
00044 #include <ostream>
00045 
00046 #include "AbstractLinAlgPack_MatrixSymIdent.hpp"
00047 #include "AbstractLinAlgPack_VectorStdOps.hpp"
00048 #include "AbstractLinAlgPack_LinAlgOpPack.hpp"
00049 
00050 namespace AbstractLinAlgPack {
00051 
00052 // Constructors/initalizers
00053 
00054 MatrixSymIdent::MatrixSymIdent(
00055   const VectorSpace::space_ptr_t&          vec_space
00056   ,const value_type                        scale
00057   )
00058 {
00059   this->initialize(vec_space,scale);
00060 }
00061 
00062 void MatrixSymIdent::initialize(
00063   const VectorSpace::space_ptr_t&          vec_space
00064   ,const value_type                        scale
00065   )
00066 {
00067   vec_space_ = vec_space;
00068   scale_     = scale;
00069 }
00070 
00071 // Overridden from MatrixBase
00072 
00073 size_type MatrixSymIdent::rows() const
00074 {
00075   return vec_space_.get() ? vec_space_->dim() : 0;
00076 }
00077 
00078 size_type MatrixSymIdent::nz() const
00079 {
00080   return vec_space_.get() ? vec_space_->dim() : 0;
00081 }
00082 
00083 // Overridden from MatrixOp
00084 
00085 const VectorSpace& MatrixSymIdent::space_cols() const {
00086   return *vec_space_;
00087 }
00088 
00089 std::ostream& MatrixSymIdent::output(std::ostream& out) const
00090 {
00091   out << "Identity matrix of dimension " << rows() << " x " << rows() << std::endl;
00092   return out;
00093 }
00094 
00095 void MatrixSymIdent::Vp_StMtV(
00096   VectorMutable* y, value_type a, BLAS_Cpp::Transp M_trans
00097   ,const Vector& x, value_type b
00098   ) const
00099 {
00100   AbstractLinAlgPack::Vp_MtV_assert_compatibility( y, *this, BLAS_Cpp::no_trans, x );
00101   Vt_S(y,b);
00102     Vp_StV(y,a*scale_,x);
00103 }
00104 
00105 // Overridden from MatrixNonsing
00106 
00107 void MatrixSymIdent::V_InvMtV(
00108   VectorMutable* y, BLAS_Cpp::Transp M_trans, const Vector& x
00109   ) const
00110 {
00111   AbstractLinAlgPack::Vp_MtV_assert_compatibility( y, *this, BLAS_Cpp::no_trans, x );
00112   LinAlgOpPack::V_StV(y,1.0/scale_,x);
00113 }
00114 
00115 } // end namespace AbstractLinAlgPack
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines