ConstrainedOptPack_MatrixSymPosDefInvCholFactor.hpp

// @HEADER
// ***********************************************************************
// 
// Moocho: Multi-functional Object-Oriented arCHitecture for Optimization
//                  Copyright (2003) Sandia Corporation
// 
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
// license for use of this work by or on behalf of the U.S. Government.
// 
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
//
// 1. Redistributions of source code must retain the above copyright
// notice, this list of conditions and the following disclaimer.
//
// 2. Redistributions in binary form must reproduce the above copyright
// notice, this list of conditions and the following disclaimer in the
// documentation and/or other materials provided with the distribution.
//
// 3. Neither the name of the Corporation nor the names of the
// contributors may be used to endorse or promote products derived from
// this software without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
// Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov) 
// 
// ***********************************************************************
// @HEADER

#ifndef MATRIX_SYM_POS_DEF_INV_CHOL_FACTOR_H
#define MATRIX_SYM_POS_DEF_INV_CHOL_FACTOR_H

#include "SymInvCholMatrixClass.hpp"
#include "AbstractLinAlgPack_MatrixSymSecant.hpp"
#include "AbstractLinAlgPack_MatrixExtractInvCholFactor.hpp"
#include "AbstractLinAlgPack_MatrixWithOpConcreteEncap.hpp"
#include "AbstractLinAlgPack/src/MatrixSymWithOpFactorized.hpp"
#include "SerializationPack_Serializable.hpp"

namespace ConstrainedOptPack {

class MatrixSymPosDefInvCholFactor
  : public virtual MatrixWithOpConcreteEncap<SymInvCholMatrix>
  , public virtual MatrixSymWithOpFactorized
  , public MatrixSymSecant
  , public MatrixExtractInvCholFactor
  , public virtual SerializationPack::Serializable
{
public:

  MatrixSymPosDefInvCholFactor()
  {}

  MatrixSymPosDefInvCholFactor(const SymInvCholMatrix& m)
    : MatrixWithOpConcreteEncap<SymInvCholMatrix>(m)
  {}


  size_type cols() const;



  MatrixOp& operator=(const MatrixOp& m);
  std::ostream& output(std::ostream& out) const;
  void Vp_StMtV(DVectorSlice* vs_lhs, value_type alpha, BLAS_Cpp::Transp trans_rhs1
    , const DVectorSlice& vs_rhs2, value_type beta) const;
  void Vp_StMtV(DVectorSlice* vs_lhs, value_type alpha, BLAS_Cpp::Transp trans_rhs1
    , const SpVectorSlice& sv_rhs2, value_type beta) const;
  value_type transVtMtV(const DVectorSlice& vs_rhs1, BLAS_Cpp::Transp trans_rhs2
    , const DVectorSlice& vs_rhs3) const;
  value_type transVtMtV(const SpVectorSlice& sv_rhs1, BLAS_Cpp::Transp trans_rhs2
    , const SpVectorSlice& sv_rhs3) const;



  void V_InvMtV(DVector* v_lhs, BLAS_Cpp::Transp trans_rhs1
    , const DVectorSlice& vs_rhs2) const;
  void V_InvMtV(DVectorSlice* vs_lhs, BLAS_Cpp::Transp trans_rhs1
    , const DVectorSlice& vs_rhs2) const;
  void V_InvMtV(DVector* v_lhs, BLAS_Cpp::Transp trans_rhs1
    , const SpVectorSlice& sv_rhs2) const;
  void V_InvMtV(DVectorSlice* vs_lhs, BLAS_Cpp::Transp trans_rhs1
    , const SpVectorSlice& sv_rhs2) const;
  value_type transVtInvMtV(const DVectorSlice& vs_rhs1
    , BLAS_Cpp::Transp trans_rhs2, const DVectorSlice& vs_rhs3) const;
  value_type transVtInvMtV(const SpVectorSlice& sv_rhs1
    , BLAS_Cpp::Transp trans_rhs2, const SpVectorSlice& sv_rhs3) const;



  void M_StMtInvMtM( DMatrixSliceSym* sym_gms_lhs, value_type alpha
    , const MatrixOp& mwo, BLAS_Cpp::Transp mwo_trans, EMatrixDummyArg
    ) const;



  void init_identity( size_type n, value_type alpha );
  void init_diagonal( const DVectorSlice& diag );
  void secant_update(DVectorSlice* s, DVectorSlice* y, DVectorSlice* Bs);



  void extract_inv_chol( DMatrixSliceTriEle* InvChol ) const;



  void serialize( std::ostream &out ) const;
  void unserialize( std::istream &in );


};  // end class MatrixSymPosDefInvCholFactor

} // end namespace ConstrainedOptPack 

#endif  // MATRIX_SYM_POS_DEF_INV_CHOL_FACTOR_H