12 #ifndef ma77_default_control 13 #define ma77_control ma77_control_d 14 #define ma77_info ma77_info_d 15 #define ma77_default_control ma77_default_control_d 16 #define ma77_open_nelt ma77_open_nelt_d 17 #define ma77_open ma77_open_d 18 #define ma77_input_vars ma77_input_vars_d 19 #define ma77_input_reals ma77_input_reals_d 20 #define ma77_analyse ma77_analyse_d 21 #define ma77_factor ma77_factor_d 22 #define ma77_factor_solve ma77_factor_solve_d 23 #define ma77_solve ma77_solve_d 24 #define ma77_resid ma77_resid_d 25 #define ma77_scale ma77_scale_d 26 #define ma77_enquire_posdef ma77_enquire_posdef_d 27 #define ma77_enquire_indef ma77_enquire_indef_d 28 #define ma77_alter ma77_alter_d 29 #define ma77_restart ma77_restart_d 30 #define ma77_finalise ma77_finalise_d 31 #define ma77_solve_fredholm ma77_solve_fredholm_d 32 #define ma77_lmultiply ma77_lmultiply_d 86 #if defined(COINHSL_HSL2013) || !defined(COINHSL_HAS_MA77) 120 long int nio_read[2];
121 long int nio_write[2];
122 long int nwd_read[2];
123 long int nwd_write[2];
132 #if defined(COINHSL_HSL2013) || !defined(COINHSL_HAS_MA77) 140 void ma77_open_nelt(
const int n,
const char* fname1,
const char* fname2,
141 const char *fname3,
const char *fname4,
void **keep,
144 void ma77_open_d(
const int n,
const char* fname1,
const char* fname2,
145 const char *fname3,
const char *fname4,
void **keep,
182 const char *fname2,
const char *fname3,
const char *fname4,
void **keep,
void ma77_open_d(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)
Number * x
Input: Starting point Output: Optimal solution.
void ma77_solve_fredholm_d(int nrhs, int flag_out[], int lx, ma77pkgtype_d_ x[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, const ma77pkgtype_d_ *scale)
ma77pkgtype_d_ consist_tol
void ma77_finalise_d(void **keep, const struct ma77_control_d *control, struct ma77_info_d *info)
void ma77_enquire_indef_d(int piv_order[], ma77pkgtype_d_ d[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info)
void ma77_default_control_d(struct ma77_control_d *control)
void ma77_factor_solve_d(const int posdef, void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, const ma77pkgtype_d_ *scale, const int nrhs, const int lx, ma77pkgtype_d_ rhs[])
void ma77_restart_d(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)
void ma77_enquire_posdef_d(ma77pkgtype_d_ d[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info)
void ma77_input_reals_d(const int idx, const int length, const ma77pkgtype_d_ reals[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info)
void ma77_resid_d(const int nrhs, const int lx, const ma77pkgtype_d_ x[], const int lresid, ma77pkgtype_d_ resid[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, ma77pkgtype_d_ *anorm_bnd)
void ma77_solve_d(const int job, const int nrhs, const int lx, ma77pkgtype_d_ x[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, const ma77pkgtype_d_ *scale)
void ma77_alter_d(const ma77pkgtype_d_ d[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info)
ma77pkgtype_d_ multiplier
void ma77_factor_d(const int posdef, void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, const ma77pkgtype_d_ *scale)
void ma77_scale_d(ma77pkgtype_d_ scale[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, ma77pkgtype_d_ *anorm)
void ma77_lmultiply_d(int trans, int k, int lx, ma77pkgtype_d_ x[], int ly, ma77pkgtype_d_ y[], void **keep, const struct ma77_control_d *control, struct ma77_info_d *info, const ma77pkgtype_d_ *scale)