fixed get_array functions in Fortran

darcs-hash:20100616214752-c8de0-6806563b789b0b6e62652ee39c6c68755567d080.gz

diff --git a/api/f77api.c b/api/f77api.c
index 15cf50f9f5d234afccd86b65e3467cad9deafdca..193d50e1835cb939a2c364fb90775b598ad54eb7 100644 (file)
--- 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)