update
[morpheus.git] / pkg / src / morpheus_init.c
CommitLineData
80be0d77
BA
1#include <stdlib.h> // for NULL
2#include <R_ext/Rdynload.h>
3
4/* FIXME:
5 Check these declarations against the C/Fortran source code.
6*/
7
8/* .C calls */
0a630686
BA
9extern void hungarianAlgorithm(void*, void*, void*);
10extern void Moments_M2(void*, void*, void*, void*, void*);
11extern void Moments_M3(void*, void*, void*, void*, void*);
5af71d43 12extern void Compute_Omega(void*, void*, void*, void*, void*, void*, void*);
80be0d77
BA
13
14static const R_CMethodDef CEntries[] = {
6dd5c2ac
BA
15 {"hungarianAlgorithm", (DL_FUNC) &hungarianAlgorithm, 3},
16 {"Moments_M2", (DL_FUNC) &Moments_M2, 5},
17 {"Moments_M3", (DL_FUNC) &Moments_M3, 5},
5af71d43 18 {"Compute_Omega", (DL_FUNC) &Compute_Omega, 7},
6dd5c2ac 19 {NULL, NULL, 0}
80be0d77
BA
20};
21
22void R_init_morpheus(DllInfo *dll)
23{
6dd5c2ac
BA
24 R_registerRoutines(dll, CEntries, NULL, NULL, NULL);
25 R_useDynamicSymbols(dll, FALSE);
80be0d77
BA
26}
27