Commit b29c292f authored by Florian Gerber's avatar Florian Gerber

register compiled functions

parent 70f3d57a
......@@ -21,7 +21,8 @@ extern void TEST_times2_int ( void *, void *);
extern void TEST_times2_int64 ( void *, void *);
// Fortran
extern void TEST_times2_int64 ( void *, void *);
extern void F77_NAME(get_f) ( void *, void *, void *);
extern void F77_NAME(get64_f) ( void *, void *, void *);
......@@ -41,8 +42,8 @@ static const R_CallMethodDef CEntries[] = {
static const R_FortranMethodDef FortranEntries[] = {
{"get_f", (DL_FUNC) &F77_NAME(get_f ), 3},
{"get64_f", (DL_FUNC) &F77_NAME(get64_f), 3},
{"get_f", (DL_FUNC)&F77_NAME(get_f ), 3},
{"get64_f", (DL_FUNC)&F77_NAME(get64_f), 3},
{NULL, NULL, 0}
};
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment