From f9b635c529e17e438973b47e8fa15ee18b68053b Mon Sep 17 00:00:00 2001 From: stevenj Date: Wed, 16 Jun 2010 17:47:52 -0400 Subject: [PATCH] fixed get_array functions in Fortran darcs-hash:20100616214752-c8de0-6806563b789b0b6e62652ee39c6c68755567d080.gz --- api/f77api.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/api/f77api.c b/api/f77api.c index 15cf50f..193d50e 100644 --- a/api/f77api.c +++ b/api/f77api.c @@ -69,7 +69,7 @@ static double f77_func_wrap(unsigned n, const double *x, double *grad, void *dat #define F77_SET(name,NAME,T) void F77_(nlo_set_##name,NLO_SET_##NAME)(int *ret, nlopt_opt *opt, T *val) { *ret = (int) nlopt_set_##name(*opt, *val); } #define F77_GETSET(name,NAME,T) F77_GET(name,NAME,T) F77_SET(name,NAME,T) -#define F77_GETA(name,NAME,T) void F77_(nlo_get_##name,NLO_GET_##NAME)(int *ret, T *val, nlopt_opt *opt) { *ret = (int) nlopt_get_##name(*opt, val); } +#define F77_GETA(name,NAME,T) void F77_(nlo_get_##name,NLO_GET_##NAME)(int *ret, nlopt_opt *opt, T *val) { *ret = (int) nlopt_get_##name(*opt, val); } #define F77_SETA(name,NAME,T) void F77_(nlo_set_##name,NLO_SET_##NAME)(int *ret, nlopt_opt *opt, T *val) { *ret = (int) nlopt_set_##name(*opt, val); } #define F77_GETSETA(name,NAME,T) F77_GETA(name,NAME,T) F77_SETA(name,NAME,T) F77_SET(name##1,NAME##1,T) -- 2.30.2