45 #ifndef ma97_default_control 46 #define ma97_control ma97_control_d 47 #define ma97_info ma97_info_d 48 #define ma97_default_control ma97_default_control_d 49 #define ma97_analyse ma97_analyse_d 50 #define ma97_analyse_coord ma97_analyse_coord_d 51 #define ma97_factor ma97_factor_d 52 #define ma97_factor_solve ma97_factor_solve_d 53 #define ma97_solve ma97_solve_d 54 #define ma97_free_akeep ma97_free_akeep_d 55 #define ma97_free_fkeep ma97_free_fkeep_d 56 #define ma97_finalise ma97_finalise_d 57 #define ma97_enquire_posdef ma97_enquire_posdef_d 58 #define ma97_enquire_indef ma97_enquire_indef_d 59 #define ma97_alter ma97_alter_d 60 #define ma97_solve_fredholm ma97_solve_fredholm_d 61 #define ma97_lmultiply ma97_lmultiply_d 62 #define ma97_sparse_fwd_solve ma97_sparse_fwd_solve_d 125 void ma97_analyse_d(
int check,
int n,
const int ptr[],
const int row[],
127 struct ma97_info_d *info,
int order[]);
131 struct ma97_info_d *info,
int order[]);
133 void ma97_factor_d(
int matrix_type,
const int ptr[],
const int row[],
145 struct ma97_info_d *info);
165 int ldx,
void **akeep,
void **fkeep,
const struct ma97_control_d *control,
166 struct ma97_info_d *info);
173 const ma97pkgtype_d_ b[],
const int order[],
int *nxi,
int xindex[],
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)