HSLLoader.h

Go to the documentation of this file.

/* Copyright (C) 2008, 2011 GAMS Development and others
 * All Rights Reserved.
 * This code is published under the Eclipse Public License.
 *
 * Author: Stefan Vigerske
 */
 
#ifndef HSLLOADER_H_
#define HSLLOADER_H_
 
#include "IpoptConfig.h"
 
#ifdef __cplusplus
extern "C"
{
#endif
 
#ifndef ma77_default_control
#define ma77_control         ma77_control_d
#define ma77_info            ma77_info_d
#define ma77_default_control ma77_default_control_d
#define ma77_open_nelt       ma77_open_nelt_d
#define ma77_open            ma77_open_d
#define ma77_input_vars      ma77_input_vars_d
#define ma77_input_reals     ma77_input_reals_d
#define ma77_analyse         ma77_analyse_d
#define ma77_factor          ma77_factor_d
#define ma77_factor_solve    ma77_factor_solve_d
#define ma77_solve           ma77_solve_d
#define ma77_resid           ma77_resid_d
#define ma77_scale           ma77_scale_d
#define ma77_enquire_posdef  ma77_enquire_posdef_d
#define ma77_enquire_indef   ma77_enquire_indef_d
#define ma77_alter           ma77_alter_d
#define ma77_restart         ma77_restart_d
#define ma77_finalise        ma77_finalise_d
#endif
 
struct ma77_control;
struct ma77_info;
typedef double ma77pkgtype_d_;
 
#ifndef ma86_default_control
#define ma86_control         ma86_control_d
#define ma86_info            ma86_info_d
#define ma86_default_control ma86_default_control_d
#define ma86_analyse         ma86_analyse_d
#define ma86_factor          ma86_factor_d
#define ma86_factor_solve    ma86_factor_solve_d
#define ma86_solve           ma86_solve_d
#define ma86_finalise        ma86_finalise_d
#endif
 
struct ma86_control;
struct ma86_info;
typedef double ma86pkgtype_d_;
typedef double ma86realtype_d_;
 
#ifndef ma97_default_control
#define ma97_control         ma97_control_d
#define ma97_info            ma97_info_d
#define ma97_default_control ma97_default_control_d
#define ma97_analyse         ma97_analyse_d
#define ma97_factor          ma97_factor_d
#define ma97_factor_solve    ma97_factor_solve_d
#define ma97_solve           ma97_solve_d
#define ma97_finalise        ma97_finalise_d
#define ma97_free_akeep      ma97_free_akeep_d
#endif
 
struct ma97_control;
struct ma97_info;
typedef double ma97pkgtype_d_;
typedef double ma97realtype_d_;
 
struct mc68_control_i;
struct mc68_info_i;
 
#ifndef __IPTYPES_HPP__
/* Type of Fortran integer translated into C */
typedef IPOPT_FORTRAN_INTEGER_TYPE ipfint;
#endif
 
typedef void (*ma27ad_t)(
   ipfint*       N,
   ipfint*       NZ,
   const ipfint* IRN,
   const ipfint* ICN,
   ipfint*       IW,
   ipfint*       LIW,
   ipfint*       IKEEP,
   ipfint*       IW1,
   ipfint*       NSTEPS,
   ipfint*       IFLAG,
   ipfint*       ICNTL,
   double*       CNTL,
   ipfint*       INFO,
   double*       OPS
);
 
typedef void (*ma27bd_t)(
   ipfint*       N,
   ipfint*       NZ,
   const ipfint* IRN,
   const ipfint* ICN,
   double*       A,
   ipfint*       LA,
   ipfint*       IW,
   ipfint*       LIW,
   ipfint*       IKEEP,
   ipfint*       NSTEPS,
   ipfint*       MAXFRT,
   ipfint*       IW1,
   ipfint*       ICNTL,
   double*       CNTL,
   ipfint*       INFO
);
 
typedef void (*ma27cd_t)(
   ipfint* N,
   double* A,
   ipfint* LA,
   ipfint* IW,
   ipfint* LIW,
   double* W,
   ipfint* MAXFRT,
   double* RHS,
   ipfint* IW1,
   ipfint* NSTEPS,
   ipfint* ICNTL,
   double* CNTL
);
 
typedef void (*ma27id_t)(
   ipfint* ICNTL,
   double* CNTL
);
 
typedef void (*ma57ad_t)(
   ipfint*       n,     
   ipfint*       ne,    
   const ipfint* irn,   
   const ipfint* jcn,   
   ipfint*       lkeep, 
   ipfint*       keep,  
   /* Automatically iflag = 0; ikeep pivot order iflag = 1 */
   ipfint*       iwork, 
   ipfint*       icntl, 
   ipfint*       info,  
   double*       rinfo  
);
 
typedef void (*ma57bd_t)(
   ipfint* n,      
   ipfint* ne,     
   double* a,      
   double* fact,   
   ipfint* lfact,  
   ipfint* ifact,  
   ipfint* lifact, 
   ipfint* lkeep,  
   ipfint* keep,   
   ipfint* iwork,  
   ipfint* icntl,  
   double* cntl,   
   ipfint* info,   
   double* rinfo   
);
 
typedef void (*ma57cd_t)(
   ipfint* job,    
   ipfint* n,      
   double* fact,   
   ipfint* lfact,  
   ipfint* ifact,  
   ipfint* lifact, 
   ipfint* nrhs,   
   double* rhs,    
   ipfint* lrhs,   
   double* work,   
   ipfint* lwork,  
   ipfint* iwork,  
   ipfint* icntl,  
   ipfint* info    
);
 
typedef void (*ma57ed_t)(
   ipfint* n,
   ipfint* ic,    
   ipfint* keep,
   double* fact,
   ipfint* lfact,
   double* newfac,
   ipfint* lnew,
   ipfint* ifact,
   ipfint* lifact,
   ipfint* newifc,
   ipfint* linew,
   ipfint* info
);
 
typedef void (*ma57id_t)(
   double* cntl,
   ipfint* icntl
);
 
typedef void (*ma77_default_control_t)(
   struct ma77_control_d* control
);
 
typedef void (*ma77_open_nelt_t)(
   const int                    n,
   const char*                  fname1,
   const char*                  fname2,
   const char*                  fname3,
   const char*                  fname4,
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info,
   const int                    nelt
);
 
typedef void (*ma77_open_t)(
   const int                    n,
   const char*                  fname1,
   const char*                  fname2,
   const char*                  fname3,
   const char*                  fname4,
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_input_vars_t)(
   const int                    idx,
   const int                    nvar,
   const int                    list[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_input_reals_t)(
   const int                    idx,
   const int                    length,
   const double                 reals[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_analyse_t)(
   const int                    order[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_factor_t)(
   const int                    posdef,
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info,
   const double*                scale
);
 
typedef void (*ma77_factor_solve_t)(
   const int                    posdef,
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info,
   const double*                scale,
   const int                    nrhs,
   const int                    lx,
   double                       rhs[]
);
 
typedef void (*ma77_solve_t)(
   const int                    job,
   const int                    nrhs,
   const int                    lx,
   double                       x[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info,
   const double*                scale
);
 
typedef void (*ma77_resid_t)(
   const int                    nrhs,
   const int                    lx,
   const double                 x[],
   const int                    lresid,
   double                       resid[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info,
   double*                      anorm_bnd
);
 
typedef void (*ma77_scale_t)(
   double                       scale[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info,
   double*                      anorm
);
 
typedef void (*ma77_enquire_posdef_t)(
   double                       d[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_enquire_indef_t)(
   int                          piv_order[],
   double                       d[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_alter_t)(
   const double                 d[],
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_restart_t)(
   const char*                  restart_file,
   const char*                  fname1,
   const char*                  fname2,
   const char*                  fname3,
   const char*                  fname4,
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma77_finalise_t)(
   void**                       keep,
   const struct ma77_control_d* control,
   struct ma77_info_d*          info
);
 
typedef void (*ma86_default_control_t)(
   struct ma86_control* control
);
 
typedef void (*ma86_analyse_t)(
   const int                  n,
   const int                  ptr[],
   const int                  row[],
   int                        order[],
   void**                     keep,
   const struct ma86_control* control,
   struct ma86_info*          info
);
 
typedef void (*ma86_factor_t)(
   const int                  n,
   const int                  ptr[],
   const int                  row[],
   const ma86pkgtype_d_       val[],
   const int                  order[],
   void**                     keep,
   const struct ma86_control* control,
   struct ma86_info*          info,
   const ma86pkgtype_d_       scale[]
);
 
typedef void (*ma86_factor_solve_t)(
   const int                  n,
   const int                  ptr[],
   const int                  row[],
   const ma86pkgtype_d_       val[],
   const int                  order[],
   void**                     keep,
   const struct ma86_control* control,
   struct ma86_info*          info,
   const int                  nrhs,
   const int                  ldx,
   ma86pkgtype_d_             x[],
   const ma86pkgtype_d_       scale[]
);
 
typedef void (*ma86_solve_t)(
   const int                  job,
   const int                  nrhs,
   const int                  ldx,
   ma86pkgtype_d_*            x,
   const int                  order[],
   void**                     keep,
   const struct ma86_control* control,
   struct ma86_info*          info,
   const ma86pkgtype_d_       scale[]
);
 
typedef void (*ma86_finalise_t)(
   void**                     keep,
   const struct ma86_control* control
);
 
typedef void (*ma97_default_control_t)(
   struct ma97_control* control
);
 
typedef void (*ma97_analyse_t)(
   const int                  check,
   const int                  n,
   const int                  ptr[],
   const int                  row[],
   ma97pkgtype_d_             val[],
   void**                     akeep,
   const struct ma97_control* control,
   struct ma97_info*          info,
   int                        order[]
);
 
typedef void (*ma97_factor_t)(
   const int                  matrix_type,
   const int                  ptr[],
   const int                  row[],
   const ma97pkgtype_d_       val[],
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info,
   const ma97pkgtype_d_       scale[]
);
 
typedef void (*ma97_factor_solve_t)(
   const int                  matrix_type,
   const int                  ptr[],
   const int                  row[],
   const ma97pkgtype_d_       val[],
   const int                  nrhs,
   ma97pkgtype_d_             x[],
   const int                  ldx,
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info,
   const ma97pkgtype_d_       scale[]
);
 
typedef void (*ma97_solve_t)(
   const int                  job,
   const int                  nrhs,
   ma97pkgtype_d_*            x,
   const int                  ldx,
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info
);
 
typedef void (*ma97_finalise_t)(
   void** akeep,
   void** fkeep
);
 
typedef void (*ma97_free_akeep_t)(
   void** akeep
);
 
typedef void (*mc19ad_t)(
   ipfint* N,
   ipfint* NZ,
   double* A,
   ipfint* IRN,
   ipfint* ICN,
   float*  R,
   float*  C,
   float*  W
);
 
typedef void (*mc68_default_control_t)(
   struct mc68_control_i* control
);
 
typedef void (*mc68_order_t)(
   int                          ord,
   int                          n,
   const int                    ptr[],
   const int                    row[],
   int                          perm[],
   const struct mc68_control_i* control,
   struct mc68_info_i*          info
);
 
IPOPTLIB_EXPORT int LSL_loadHSL(
   const char* libname,
   char*       msgbuf,
   int         msglen
);
 
IPOPTLIB_EXPORT int LSL_unloadHSL(void);
 
IPOPTLIB_EXPORT int LSL_isHSLLoaded(void);
 
IPOPTLIB_EXPORT int LSL_isMA27available(void);
 
IPOPTLIB_EXPORT int LSL_isMA57available(void);
 
IPOPTLIB_EXPORT int LSL_isMA77available(void);
 
IPOPTLIB_EXPORT int LSL_isMA86available(void);
 
IPOPTLIB_EXPORT int LSL_isMA97available(void);
 
IPOPTLIB_EXPORT int LSL_isMC19available(void);
 
IPOPTLIB_EXPORT int LSL_isMC68available(void);
 
IPOPTLIB_EXPORT char* LSL_HSLLibraryName(void);
 
IPOPTLIB_EXPORT void LSL_setMA27(
   ma27ad_t ma27ad,
   ma27bd_t ma27bd,
   ma27cd_t ma27cd,
   ma27id_t ma27id
);
 
IPOPTLIB_EXPORT void LSL_setMA57(
   ma57ad_t ma57ad,
   ma57bd_t ma57bd,
   ma57cd_t ma57cd,
   ma57ed_t ma57ed,
   ma57id_t ma57id
);
 
IPOPTLIB_EXPORT void LSL_setMA77(
   ma77_default_control_t ma77_default_control,
   ma77_open_nelt_t       ma77_open_nelt,
   ma77_open_t            ma77_open,
   ma77_input_vars_t      ma77_input_vars,
   ma77_input_reals_t     ma77_input_reals,
   ma77_analyse_t         ma77_analyse,
   ma77_factor_t          ma77_factor,
   ma77_factor_solve_t    ma77_factor_solve,
   ma77_solve_t           ma77_solve,
   ma77_resid_t           ma77_resid,
   ma77_scale_t           ma77_scale,
   ma77_enquire_posdef_t  ma77_enquire_posdef,
   ma77_enquire_indef_t   ma77_enquire_indef,
   ma77_alter_t           ma77_alter,
   ma77_restart_t         ma77_restart,
   ma77_finalise_t        ma77_finalise
);
 
IPOPTLIB_EXPORT void LSL_setMA86(
   ma86_default_control_t ma86_default_control,
   ma86_analyse_t         ma86_analyse,
   ma86_factor_t          ma86_factor,
   ma86_factor_solve_t    ma86_factor_solve,
   ma86_solve_t           ma86_solve,
   ma86_finalise_t        ma86_finalise
);
 
IPOPTLIB_EXPORT void LSL_setMA97(
   ma97_default_control_t ma97_default_control,
   ma97_analyse_t         ma97_analyse,
   ma97_factor_t          ma97_factor,
   ma97_factor_solve_t    ma97_factor_solve,
   ma97_solve_t           ma97_solve,
   ma97_finalise_t        ma97_finalise,
   ma97_free_akeep_t      ma97_free_akeep
);
 
IPOPTLIB_EXPORT void LSL_setMC19(
   mc19ad_t mc19ad
);
 
IPOPTLIB_EXPORT void LSL_setMC68(
   mc68_default_control_t mc68_default_control,
   mc68_order_t           mc68_order
);
 
#ifdef __cplusplus
}
#endif
 
#endif /* HSLLOADER_H_ */