12 #ifndef ma97_default_control
13 #define ma97_control ma97_control_d
14 #define ma97_info ma97_info_d
15 #define ma97_default_control ma97_default_control_d
16 #define ma97_analyse ma97_analyse_d
17 #define ma97_analyse_coord ma97_analyse_coord_d
18 #define ma97_factor ma97_factor_d
19 #define ma97_factor_solve ma97_factor_solve_d
20 #define ma97_solve ma97_solve_d
21 #define ma97_free_akeep ma97_free_akeep_d
22 #define ma97_free_fkeep ma97_free_fkeep_d
23 #define ma97_finalise ma97_finalise_d
24 #define ma97_enquire_posdef ma97_enquire_posdef_d
25 #define ma97_enquire_indef ma97_enquire_indef_d
26 #define ma97_alter ma97_alter_d
27 #define ma97_solve_fredholm ma97_solve_fredholm_d
28 #define ma97_lmultiply ma97_lmultiply_d
29 #define ma97_sparse_fwd_solve ma97_sparse_fwd_solve_d
92 void ma97_analyse_d(
int check,
int n,
const int ptr[],
const int row[],
94 struct ma97_info_d *info,
int order[]);
98 struct ma97_info_d *info,
int order[]);
100 void ma97_factor_d(
int matrix_type,
const int ptr[],
const int row[],
112 struct ma97_info_d *info);
132 int ldx,
void **akeep,
void **fkeep,
const struct ma97_control_d *control,
133 struct ma97_info_d *info);
140 const ma97pkgtype_d_ b[],
const int order[],
int *nxi,
int xindex[],
Number * x
Input: Starting point Output: Optimal solution.
void ma97_sparse_fwd_solve_d(int nbi, const int bindex[], const ma97pkgtype_d_ b[], const int order[], int *nxi, int xindex[], ma97pkgtype_d_ x[], void **akeep, void **fkeep, const struct ma97_control_d *control, struct ma97_info_d *info)
void ma97_solve_d(int job, int nrhs, ma97pkgtype_d_ x[], int ldx, void **akeep, void **fkeep, const struct ma97_control_d *control, struct ma97_info_d *info)
ma97realtype_d_ multiplier
void ma97_alter_d(const ma97pkgtype_d_ d[], void **akeep, void **fkeep, const struct ma97_control *control, struct ma97_info *info)
ma97realtype_d_ consist_tol
void ma97_free_fkeep_d(void **fkeep)
ma97realtype_d_ rspare[10]
ma97realtype_d_ rspare[10]
void ma97_finalise_d(void **akeep, void **fkeep)
void ma97_default_control_d(struct ma97_control_d *control)
void ma97_free_akeep_d(void **akeep)
void ma97_analyse_coord_d(int n, int ne, const int row[], const int col[], ma97pkgtype_d_ val[], void **akeep, const struct ma97_control_d *control, struct ma97_info_d *info, int order[])
void ma97_enquire_indef_d(void **akeep, void **fkeep, const struct ma97_control *control, struct ma97_info *info, int *piv_order, ma97pkgtype_d_ *d)
void ma97_enquire_posdef_d(void **akeep, void **fkeep, const struct ma97_control *control, struct ma97_info *info, ma97realtype_d_ d[])
void ma97_factor_solve_d(int matrix_type, const int ptr[], const int row[], const ma97pkgtype_d_ val[], int nrhs, ma97pkgtype_d_ x[], int ldx, void **akeep, void **fkeep, const struct ma97_control_d *control, struct ma97_info_d *info, ma97realtype_d_ scale[])
void ma97_solve_fredholm_d(int nrhs, int flag_out[], ma97pkgtype_d_ x[], int ldx, void **akeep, void **fkeep, const struct ma97_control_d *control, struct ma97_info_d *info)
void ma97_analyse_d(int check, int n, const int ptr[], const int row[], ma97pkgtype_d_ val[], void **akeep, const struct ma97_control_d *control, struct ma97_info_d *info, int order[])
void ma97_factor_d(int matrix_type, const int ptr[], const int row[], const ma97pkgtype_d_ val[], void **akeep, void **fkeep, const struct ma97_control_d *control, struct ma97_info_d *info, ma97realtype_d_ scale[])
void ma97_lmultiply_d(int trans, int k, const ma97pkgtype_d_ x[], int ldx, ma97pkgtype_d_ y[], int ldy, void **akeep, void **fkeep, const struct ma97_control_d *control, struct ma97_info_d *info)