-/* Copyright (c) 2007-2010 Massachusetts Institute of Technology
+/* Copyright (c) 2007-2014 Massachusetts Institute of Technology
*
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the
}
*info = nlopt_minimize_constrained((nlopt_algorithm) *algorithm,
- *n, f77_func_wrap, &d,
- *m, f77_func_wrap,
+ *n, f77_func_wrap_old, &d,
+ *m, f77_func_wrap_old,
dc, sizeof(f77_func_data),
lb, ub, x, minf,
*minf_max, *ftol_rel, *ftol_abs,
const int *maxeval, const double *maxtime)
{
int m = 0;
- F77(nloptc,NLOPTC)(info, algorithm, n, f, f_data, &m, 0, 0, 0,
+ F77CALL(nloptc,NLOPTC)(info, algorithm, n, f, f_data, &m, 0, 0, 0,
lb, ub, x, minf, minf_max, ftol_rel, ftol_abs,
xtol_rel, xtol_abs, have_xtol_abs, maxeval, maxtime);
}
{
nlopt_set_stochastic_population(*pop);
}
+
+#define F77_(name,NAME) F77(name,NAME)
+# include "f77funcs_.h"
+#undef F77_