ConstrainedOptPack_QPSolverRelaxedQPKWIK.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.
// 
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation; either version 2.1 of the
// License, or (at your option) any later version.
//  
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//  
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA
// Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov) 
// 
// ***********************************************************************
// @HEADER

#ifndef QP_SOLVER_RELAXED_QPKWIK_H
#define QP_SOLVER_RELAXED_QPKWIK_H

#include <vector>

#include "ConstrainedOptPack_QPSolverRelaxed.hpp"
#include "DenseLinAlgPack_DVectorClass.hpp"
#include "DenseLinAlgPack_DMatrixClass.hpp"
#include "Teuchos_StandardMemberCompositionMacros.hpp"
#include "Teuchos_F77_wrappers.h"

namespace ConstrainedOptPack {

class QPSolverRelaxedQPKWIK : public QPSolverRelaxed
{
public:


  STANDARD_MEMBER_COMPOSITION_MEMBERS( value_type, max_qp_iter_frac );

  STANDARD_MEMBER_COMPOSITION_MEMBERS( value_type, infinite_bound );

  QPSolverRelaxedQPKWIK(
      value_type        max_qp_iter_frac  = 10.0
      ,value_type       infinite_bound      = 1e+20
    );

  ~QPSolverRelaxedQPKWIK();



  QPSolverStats get_qp_stats() const;
  void release_memory();


protected:


  QPSolverStats::ESolutionType imp_solve_qp(
    std::ostream* out, EOutputLevel olevel, ERunTests test_what
    ,const Vector& g, const MatrixSymOp& G
    ,value_type etaL
    ,const Vector* dL, const Vector* dU
    ,const MatrixOp* E, BLAS_Cpp::Transp trans_E, const Vector* b
    ,const Vector* eL, const Vector* eU
    ,const MatrixOp* F, BLAS_Cpp::Transp trans_F, const Vector* f
    ,value_type* obj_d
    ,value_type* eta, VectorMutable* d
    ,VectorMutable* nu
    ,VectorMutable* mu, VectorMutable* Ed
    ,VectorMutable* lambda, VectorMutable* Fd
    );


private:

  // //////////////////////////////////////////////////////////////
  // Private types

  typedef FortranTypes::f_int f_int;
  typedef std::vector<f_int>  IBND_t;
  typedef std::vector<f_int>  IACTSTORE_t;
  typedef std::vector<f_int>  IACT_t;
  typedef std::vector<f_int>  ISTATE_t;

  // //////////////////////////////////////////////////////////////
  // Private Data Members.

  QPSolverStats   qp_stats_;

  // Inverse mapping for IBND_INV(j) == k <-> IBND(k) == j
  IBND_t          IBND_INV_;

  // Parameters to QPKWIK

  f_int      N_;
  f_int      M1_;
  f_int      M2_;
  f_int      M3_;
  DVector          GRAD_;
  DMatrix       UINV_AUG_;
  f_int      LDUINV_AUG_;
  IBND_t          IBND_;
  DVector          BL_;
  DVector          BU_;
  DMatrix       A_;
  f_int   LDA_;
  DVector          YPY_;
  f_int      IYPY_;
  f_int      WARM_;
  value_type      NUMPARAM_[3];
  f_int      MAX_ITER_;

  // Input / Output

  DVector          X_;
  f_int      NACTSTORE_;
  IACTSTORE_t     IACTSTORE_;
  f_int      INF_;
  
  // Output

  f_int      NACT_;
  IACT_t          IACT_;
  DVector          UR_;
  value_type      EXTRA_;
  f_int      ITER_;
  f_int      NUM_ADDS_;
  f_int      NUM_DROPS_;
  
  // Internal state

  ISTATE_t        ISTATE_;

  // Workspace

  f_int      LRW_;
  DVector          RW_;

}; // end class QPSolverRelaxedQPKWIK

} // end namespace ConstrainedOptimizationPackTypes

#endif // QP_SOLVER_RELAXED_QPKWIK_H