From 511e3ca9e5235e018f772693907d9ec10002b02a Mon Sep 17 00:00:00 2001
From: Luca Coraggio <luca.coraggio@unina.it>
Date: Sat, 4 Jul 2020 09:50:03 +0000
Subject: version 1.0

---
 src/init.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/init.c

(limited to 'src/init.c')

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);
+}
-- 
cgit v1.2.3