19 #ifndef ma77_default_control
20 #define ma77_control ma77_control_d
21 #define ma77_info ma77_info_d
22 #define ma77_default_control ma77_default_control_d
23 #define ma77_open_nelt ma77_open_nelt_d
24 #define ma77_open ma77_open_d
25 #define ma77_input_vars ma77_input_vars_d
26 #define ma77_input_reals ma77_input_reals_d
27 #define ma77_analyse ma77_analyse_d
28 #define ma77_factor ma77_factor_d
29 #define ma77_factor_solve ma77_factor_solve_d
30 #define ma77_solve ma77_solve_d
31 #define ma77_resid ma77_resid_d
32 #define ma77_scale ma77_scale_d
33 #define ma77_enquire_posdef ma77_enquire_posdef_d
34 #define ma77_enquire_indef ma77_enquire_indef_d
35 #define ma77_alter ma77_alter_d
36 #define ma77_restart ma77_restart_d
37 #define ma77_finalise ma77_finalise_d
45 #ifndef ma86_default_control
46 #define ma86_control ma86_control_d
47 #define ma86_info ma86_info_d
48 #define ma86_default_control ma86_default_control_d
49 #define ma86_analyse ma86_analyse_d
50 #define ma86_factor ma86_factor_d
51 #define ma86_factor_solve ma86_factor_solve_d
52 #define ma86_solve ma86_solve_d
53 #define ma86_finalise ma86_finalise_d
61 #ifndef ma97_default_control
62 #define ma97_control ma97_control_d
63 #define ma97_info ma97_info_d
64 #define ma97_default_control ma97_default_control_d
65 #define ma97_analyse ma97_analyse_d
66 #define ma97_factor ma97_factor_d
67 #define ma97_factor_solve ma97_factor_solve_d
68 #define ma97_solve ma97_solve_d
69 #define ma97_finalise ma97_finalise_d
70 #define ma97_free_akeep ma97_free_akeep_d
78 struct mc68_control_i;
81 #ifndef __IPTYPES_HPP__
86 typedef void (*
ma27ad_t)(ipfint *N, ipfint *NZ,
const ipfint *IRN,
const ipfint* ICN,
87 ipfint *IW, ipfint* LIW, ipfint* IKEEP, ipfint *IW1,
88 ipfint* NSTEPS, ipfint* IFLAG, ipfint* ICNTL,
89 double* CNTL, ipfint *INFO,
double* OPS);
90 typedef void (*
ma27bd_t)(ipfint *N, ipfint *NZ,
const ipfint *IRN,
const ipfint* ICN,
91 double* A, ipfint* LA, ipfint* IW, ipfint* LIW,
92 ipfint* IKEEP, ipfint* NSTEPS, ipfint* MAXFRT,
93 ipfint* IW1, ipfint* ICNTL,
double* CNTL,
95 typedef void (*
ma27cd_t)(ipfint *N,
double* A, ipfint* LA, ipfint* IW,
96 ipfint* LIW,
double* W, ipfint* MAXFRT,
97 double* RHS, ipfint* IW1, ipfint* NSTEPS,
98 ipfint* ICNTL,
double* CNTL);
99 typedef void (*
ma27id_t)(ipfint* ICNTL,
double* CNTL);
101 typedef void (*
ma28ad_t)(
void* nsize,
void* nz,
void* rw,
void* licn,
void* iw,
102 void* lirn,
void* iw2,
void* pivtol,
void* iw3,
void* iw4,
void* rw2,
void* iflag);
163 typedef void (*
ma57id_t) (
double *cntl, ipfint *icntl);
167 const char *fname3,
const char *fname4,
void **keep,
170 typedef void (*
ma77_open_t)(
const int n,
const char* fname1,
const char* fname2,
171 const char *fname3,
const char *fname4,
void **keep,
176 const double reals[],
void **keep,
const struct ma77_control_d *control,
182 const double *scale);
185 const double *scale,
const int nrhs,
const int lx,
187 typedef void (*
ma77_solve_t)(
const int job,
const int nrhs,
const int lx,
double x[],
189 const double *scale);
190 typedef void (*
ma77_resid_t)(
const int nrhs,
const int lx,
const double x[],
191 const int lresid,
double resid[],
void **keep,
204 const char *fname2,
const char *fname3,
const char *fname4,
void **keep,
211 int order[],
void **keep,
const struct ma86_control *control,
213 typedef void (*
ma86_factor_t)(
const int n,
const int ptr[],
const int row[],
214 const ma86pkgtype_d_
val[],
const int order[],
void **keep,
216 const ma86pkgtype_d_ scale[]);
218 const int row[],
const ma86pkgtype_d_ val[],
const int order[],
void **keep,
220 const int ldx, ma86pkgtype_d_ x[],
const ma86pkgtype_d_ scale[]);
221 typedef void (*
ma86_solve_t)(
const int job,
const int nrhs,
const int ldx,
222 ma86pkgtype_d_ *
x,
const int order[],
void **keep,
224 const ma86pkgtype_d_ scale[]);
230 const int row[], ma97pkgtype_d_ val[],
void **akeep,
233 const int row[],
const ma97pkgtype_d_ val[],
void **akeep,
void **fkeep,
235 const ma97pkgtype_d_ scale[]);
237 const int row[],
const ma97pkgtype_d_ val[],
const int nrhs,
238 ma97pkgtype_d_ x[],
const int ldx,
void **akeep,
void **fkeep,
240 const ma97pkgtype_d_ scale[]);
241 typedef void (*
ma97_solve_t)(
const int job,
const int nrhs, ma97pkgtype_d_ *
x,
242 const int ldx,
void **akeep,
void **fkeep,
247 typedef void (*
mc19ad_t)(ipfint *N, ipfint *NZ,
double* A, ipfint *IRN, ipfint* ICN,
float* R,
float* C,
float* W);
251 const int row[],
int perm[],
const struct mc68_control_i *control,
252 struct mc68_info_i *info);
269 int LSL_loadHSL(
const char* libname,
char* msgbuf,
int msglen);