/* initializers */ void initfunc(void (* odeparms)(int *, double *)) { int Nparms; DL_FUNC get_deSolve_gparms; SEXP gparms; get_deSolve_gparms = R_GetCCallable("deSolve","get_deSolve_gparms"); gparms = get_deSolve_gparms(); Nparms = LENGTH(gparms); parms = REAL(gparms); }
void initmod_mkn(void (* odeparms)(int *, double *)) { DL_FUNC get_deSolve_gparms = R_GetCCallable("deSolve", "get_deSolve_gparms"); parms_mkn = REAL(get_deSolve_gparms()); }