1 files changed, 22 insertions, 0 deletions
diff --git a/src/init.c b/src/init.c
new file mode 100644
index 0000000..66209f7
--- /dev/null
+++ b/src/init.c
@@ -0,0 +1,22 @@
+#include <stdlib.h>
+//#include <stdio.h>
+#include <R.h>
+#include <Rinternals.h>
+#include <Rmath.h>
+#include <Rdefines.h>
+#include <R_ext/RS.h>
+#include <R_ext/Rdynload.h>
+
+extern void F77_NAME(cormadvecdp)(void *, void *, void *, void *, void *, void *);
+
+static const R_FortranMethodDef FortMethods[] = {
+   {"cormadvecdp", (DL_FUNC) &F77_NAME(cormadvecdp), 6},
+   {NULL, NULL, 0}
+};
+
+void
+R_init_RSC(DllInfo *dll)
+{
+   R_registerRoutines(dll, NULL, NULL, FortMethods, NULL);
+   R_useDynamicSymbols(dll, FALSE);
+}