Displaying 2 results from an estimated 2 matches for "resptr".
Did you mean:
refptr
2007 Oct 05
1
Sklyar's inline package: how to return a list?
...]
[1,] -1.5 -4.5 -7.5
[2,] -2.5 -5.5 -8.5
[3,] -3.5 -6.5 -9.5
>
# --------------------------------------------------------------------------------------------------------------------------
library( inline )
c.code <- "
SEXP res;
int nprotect = 0, nx, ny, x, y;
double *dptr, *resptr, sum;
PROTECT(res = Rf_duplicate(a)); nprotect++;
nx = INTEGER(GET_DIM(a))[0];
ny = INTEGER(GET_DIM(a))[1];
dptr = REAL(a);
resptr = REAL( res );
sum = 0.0;
for (x = 0; x < nx; x++)
for (y = 0; y < ny; y++)
{
resptr[ x + y*nx ] = -dptr[ x + y*nx ];
sum += -...
2009 Dec 29
0
aMSN segfaults at login after configuring my home network
...zed out>, port=1863, willBind=0, errorMsgPtr=0xbfffd770)
at /build/buildd/tcl8.5-8.5.7/unix/../unix/tclUnixChan.c:2473
hints = {ai_flags = 0, ai_family = 2, ai_socktype = 1,
ai_protocol = 0, ai_addrlen = 0, ai_addr = 0x0, ai_canonname = 0x0,
ai_next = 0x0}
resPtr = 0x0
native = 0x0
ds = {string = 0xbfffd654 "messenger.hotmail.com", length = 21,
spaceAvl = 200,
staticSpace =
"messenger.hotmail.com\000\351\267\001\000\000\000\250~\033\b\002\000
\000\000\250~\033\b\214~\033\b\200\340\213\bx\342\264\b\004\000\0...