Commit e7873ebe authored by agebhard's avatar agebhard
Browse files

fix call

parent 59c69498
...@@ -38,6 +38,7 @@ static R_NativePrimitiveArgType rgbi3p_t[12] = { ...@@ -38,6 +38,7 @@ static R_NativePrimitiveArgType rgbi3p_t[12] = {
INTSXP, /* IER, */ INTSXP, /* IER, */
REALSXP /* WK, */ REALSXP /* WK, */
}; };
static R_NativePrimitiveArgType idbvip_t[13] = { static R_NativePrimitiveArgType idbvip_t[13] = {
INTSXP, /* MD, */ INTSXP, /* MD, */
INTSXP, /* NCP, */ INTSXP, /* NCP, */
...@@ -138,7 +139,7 @@ static R_FortranMethodDef fortranMethods[] = { ...@@ -138,7 +139,7 @@ static R_FortranMethodDef fortranMethods[] = {
{"sdsf3p", (DL_FUNC) &F77_SUB(sdsf3p), 17, sdsf3p_t}, /* interp.new */ {"sdsf3p", (DL_FUNC) &F77_SUB(sdsf3p), 17, sdsf3p_t}, /* interp.new */
{"uvip3p", (DL_FUNC) &F77_SUB(uvip3p), 8, uvip3p_t}, /* aspline */ {"uvip3p", (DL_FUNC) &F77_SUB(uvip3p), 8, uvip3p_t}, /* aspline */
{"intrpl", (DL_FUNC) &F77_SUB(intrpl), 7, intrpl_t}, /* aspline */ {"intrpl", (DL_FUNC) &F77_SUB(intrpl), 7, intrpl_t}, /* aspline */
{"rgbi3p", (DL_FUNC) &F77_SUB(rgbi3p), 12, sdbi3p_t}, /* bicubic */ {"rgbi3p", (DL_FUNC) &F77_SUB(rgbi3p), 12, rgbi3p_t}, /* bicubic */
{NULL, NULL, 0} {NULL, NULL, 0}
}; };
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment