search for: xyptr

Displaying 2 results from an estimated 2 matches for "xyptr".

Did you mean: xptr
2012 Dec 15
3
interfacing with .Call
......} //* the interface part *// #define getDim(A) INTEGER(coerceVector(getAttrib(A,R_DimSymbol), INTSXP)) SEXP Projector5(SEXP L, SEXP G, SEXP W, SEXP xymod, SEXP modif) { //* digest SEXPs from R *// int *dimL, *dimG, *dimW, *dimxy, *dimif; double *lptr, *gptr, *wptr, *ifptr; int *xyptr; dimL=getDim(L); PROTECT(L=coerceVector(L, REALSXP)); lptr=REAL(L); dimG=getDim(G); PROTECT(G=coerceVector(G, REALSXP)); gptr=REAL(G); dimW=getDim(W); PROTECT(W=coerceVector(W, REALSXP)); wptr=REAL(W); dimxy=getDim(xymod); PROTECT(xymod=coerceVector(xymod...
2012 Dec 06
1
Use .Call interface
...{ int nprot=0; PROTECT(L=AS_NUMERIC(L));nprot++; PROTECT(G=AS_NUMERIC(G));nprot++; PROTECT(W=AS_NUMERIC(W));nprot++; PROTECT(xymod=AS_INTEGER(xymod));nprot++; PROTECT(modif=AS_NUMERIC(modif));nprot++; double *lptr; lptr=REAL(L); double *gptr; gptr=REAL(G); double *wptr; wptr=REAL(W); int *xyptr; xyptr=INTEGER(xymod); double *ifptr; ifptr=REAL(modif); int *dimL; dimL=INTEGER(GET_DIM(L)); int *dimG; dimG=INTEGER(GET_DIM(G)); int *dimW; dimW=INTEGER(GET_DIM(W)); int *dimxy; dimxy=INTEGER(GET_DIM(xymod)); int *dimif; dimif=INTEGER(GET_DIM(modif)); SEXP ans; PROTECT(ans=allocMatrix(REA...