Commit e7873ebe authored by agebhard's avatar agebhard

fix call

parent 59c69498
......@@ -38,6 +38,7 @@ static R_NativePrimitiveArgType rgbi3p_t[12] = {
INTSXP, /* IER, */
REALSXP /* WK, */
};
static R_NativePrimitiveArgType idbvip_t[13] = {
INTSXP, /* MD, */
INTSXP, /* NCP, */
......@@ -138,7 +139,7 @@ static R_FortranMethodDef fortranMethods[] = {
{"sdsf3p", (DL_FUNC) &F77_SUB(sdsf3p), 17, sdsf3p_t}, /* interp.new */
{"uvip3p", (DL_FUNC) &F77_SUB(uvip3p), 8, uvip3p_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}
};
......
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