45 #ifndef ma97_default_control
46 #define ma97_control ma97_control_s
47 #define ma97_info ma97_info_s
48 #define ma97_default_control ma97_default_control_s
49 #define ma97_analyse ma97_analyse_s
50 #define ma97_analyse_coord ma97_analyse_coord_s
51 #define ma97_factor ma97_factor_s
52 #define ma97_factor_solve ma97_factor_solve_s
53 #define ma97_solve ma97_solve_s
54 #define ma97_free_akeep ma97_free_akeep_s
55 #define ma97_free_fkeep ma97_free_fkeep_s
56 #define ma97_finalise ma97_finalise_s
57 #define ma97_enquire_posdef ma97_enquire_posdef_s
58 #define ma97_enquire_indef ma97_enquire_indef_s
59 #define ma97_alter ma97_alter_s
60 #define ma97_solve_fredholm ma97_solve_fredholm_s
61 #define ma97_lmultiply ma97_lmultiply_s
62 #define ma97_sparse_fwd_solve ma97_sparse_fwd_solve_s
127 struct ma97_info_s *info,
int order[]);
131 struct ma97_info_s *info,
int order[]);
145 struct ma97_info_s *info);
165 int ldx,
void **akeep,
void **fkeep,
const struct ma97_control_s *control,
166 struct ma97_info_s *info);
173 const ma97pkgtype_s_ b[],
const int order[],
int *nxi,
int xindex[],
void ma97_enquire_posdef_s(void **akeep, void **fkeep, const struct ma97_control *control, struct ma97_info *info, ma97realtype_s_ d[])
void ma97_analyse_s(int check, int n, const int ptr[], const int row[], ma97pkgtype_s_ val[], void **akeep, const struct ma97_control_s *control, struct ma97_info_s *info, int order[])
void ma97_solve_fredholm_s(int nrhs, int flag_out[], ma97pkgtype_s_ x[], int ldx, void **akeep, void **fkeep, const struct ma97_control_s *control, struct ma97_info_s *info)
void ma97_enquire_indef_s(void **akeep, void **fkeep, const struct ma97_control *control, struct ma97_info *info, int *piv_order, ma97pkgtype_s_ *d)
void ma97_lmultiply_s(int trans, int k, const ma97pkgtype_s_ x[], int ldx, ma97pkgtype_s_ y[], int ldy, void **akeep, void **fkeep, const struct ma97_control_s *control, struct ma97_info_s *info)
void ma97_analyse_coord_s(int n, int ne, const int row[], const int col[], ma97pkgtype_s_ val[], void **akeep, const struct ma97_control_s *control, struct ma97_info_s *info, int order[])
void ma97_factor_solve_s(int matrix_type, const int ptr[], const int row[], const ma97pkgtype_s_ val[], int nrhs, ma97pkgtype_s_ x[], int ldx, void **akeep, void **fkeep, const struct ma97_control_s *control, struct ma97_info_s *info, ma97realtype_s_ scale[])
void ma97_factor_s(int matrix_type, const int ptr[], const int row[], const ma97pkgtype_s_ val[], void **akeep, void **fkeep, const struct ma97_control_s *control, struct ma97_info_s *info, ma97realtype_s_ scale[])
void ma97_free_akeep_s(void **akeep)
void ma97_finalise_s(void **akeep, void **fkeep)
void ma97_solve_s(int job, int nrhs, ma97pkgtype_s_ x[], int ldx, void **akeep, void **fkeep, const struct ma97_control_s *control, struct ma97_info_s *info)
void ma97_free_fkeep_s(void **fkeep)
void ma97_alter_s(const ma97pkgtype_s_ d[], void **akeep, void **fkeep, const struct ma97_control *control, struct ma97_info *info)
void ma97_default_control_s(struct ma97_control_s *control)
void ma97_sparse_fwd_solve_s(int nbi, const int bindex[], const ma97pkgtype_s_ b[], const int order[], int *nxi, int xindex[], ma97pkgtype_s_ x[], void **akeep, void **fkeep, const struct ma97_control_s *control, struct ma97_info_s *info)
ma97realtype_s_ consist_tol
ma97realtype_s_ rspare[10]
ma97realtype_s_ multiplier
ma97realtype_d_ rspare[10]