diff options
| author | Luca Coraggio <luca.coraggio@unina.it> | 2020-07-04 09:50:03 +0000 |
|---|---|---|
| committer | cran-robot <csardi.gabor+cran@gmail.com> | 2020-07-04 09:50:03 +0000 |
| commit | 511e3ca9e5235e018f772693907d9ec10002b02a (patch) | |
| tree | c7cb699babfa439e6bfbe47007e3916867517f76 /src/init.c | |
version 1.0
Diffstat (limited to 'src/init.c')
| -rw-r--r-- | src/init.c | 22 |
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); +} |