예제 #1
0
파일: dQAL-6.3.c 프로젝트: ArtPoon/phydynR
/* 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);
}
예제 #2
0
void initmod_mkn(void (* odeparms)(int *, double *)) {
  DL_FUNC get_deSolve_gparms = 
    R_GetCCallable("deSolve", "get_deSolve_gparms");
  parms_mkn = REAL(get_deSolve_gparms());
}