IpMc19TSymScalingMethod.hpp

Go to the documentation of this file.

// Copyright (C) 2004, 2006 International Business Machines and others.
// All Rights Reserved.
// This code is published under the Eclipse Public License.
//
// Authors:  Carl Laird, Andreas Waechter     IBM    2004-03-17
 
#ifndef __IPMC19TSYMSCALINGMETHOD_HPP__
#define __IPMC19TSYMSCALINGMETHOD_HPP__
 
#include "IpUtils.hpp"
#include "IpTSymScalingMethod.hpp"
#include "IpLibraryLoader.hpp"
#include "IpTypes.h"
 
// note that R,C,W are single-precision also in the double-precision version of MC19 (MC19AD)
// here we assume that float corresponds to Fortran's single precision
#define IPOPT_DECL_MC19A(x) void (x)( \
   const ipindex* N,   \
   const ipindex* NZ,  \
   ipnumber*      A,   \
   ipindex*       IRN, \
   ipindex*       ICN, \
   float*         R,   \
   float*         C,   \
   float*         W    \
)
 
namespace Ipopt
{
 
class Mc19TSymScalingMethod: public TSymScalingMethod
{
public:
   Mc19TSymScalingMethod(
      SmartPtr<LibraryLoader> hslloader_  
   ) : hslloader(hslloader_),
      mc19a(NULL)
   { }
 
   virtual ~Mc19TSymScalingMethod()
   { }
 
   virtual bool InitializeImpl(
      const OptionsList& options,
      const std::string& prefix
   );
 
   virtual bool ComputeSymTScalingFactors(
      Index         n,
      Index         nnz,
      const Index*  airn,
      const Index*  ajcn,
      const Number* a,
      Number*       scaling_factors
   );
 
   static void SetFunctions(
      IPOPT_DECL_MC19A(*mc19a)
   );
 
   static IPOPT_DECL_MC19A(*GetMC19A());
 
private:
 
   Mc19TSymScalingMethod(
      const Mc19TSymScalingMethod&
   );
 
   void operator=(
      const Mc19TSymScalingMethod&
   );
 
   SmartPtr<LibraryLoader> hslloader;
 
   IPOPT_DECL_MC19A(*mc19a);
};
 
} // namespace Ipopt
 
#endif