24 lines
557 B
C
24 lines
557 B
C
|
#include <R.h>
|
||
|
|
#include <Rinternals.h>
|
||
|
|
#include <stdlib.h> // for NULL
|
||
|
|
#include <R_ext/Rdynload.h>
|
||
|
|
|
||
|
|
/* FIXME:
|
||
|
|
Check these declarations against the C/Fortran source code.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* .Call calls */
|
||
|
|
extern SEXP grad_c(SEXP, SEXP, SEXP, SEXP, SEXP);
|
||
|
|
|
||
|
|
static const R_CallMethodDef CallEntries[] = {
|
||
|
|
{"grad_c", (DL_FUNC) &grad_c, 5},
|
||
|
|
{NULL, NULL, 0}
|
||
|
|
};
|
||
|
|
|
||
|
|
/* Restrict C entrypoints to registered routines. */
|
||
|
|
void R_initCVE(DllInfo *dll)
|
||
|
|
{
|
||
|
|
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
|
||
|
|
R_useDynamicSymbols(dll, FALSE);
|
||
|
|
}
|