The R Project SVN R

Rev

Rev 5231 | Rev 5458 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5231 Rev 5355
Line 85... Line 85...
85 
	break;
 85 
	break;
86 
    case CPLXSXP:
 86 
    case CPLXSXP:
87 
	n = LENGTH(s);
 87 
	n = LENGTH(s);
88 
	zptr = COMPLEX(s);
 88 
	zptr = COMPLEX(s);
89 
	for (i = 0 ; i < n ; i++) {
 89 
	for (i = 0 ; i < n ; i++) {
90 
	    if(!naok && (!R_FINITE(zptr[i].r || !R_FINITE(zptr[i].i))))
 90 
	    if(!naok && (!R_FINITE(zptr[i].r) || !R_FINITE(zptr[i].i)))
91 
		error("Complex NA/NaN/Inf in foreign function call (arg %d)\n", narg);
 91 
		error("Complex NA/NaN/Inf in foreign function call (arg %d)\n", narg);
92 
	}
 92 
	}
93 
	if (dup) {
 93 
	if (dup) {
94 
	    zptr = (complex*)R_alloc(n, sizeof(complex));
 94 
	    zptr = (complex*)R_alloc(n, sizeof(complex));
95 
	    for (i = 0 ; i < n ; i++)
 95 
	    for (i = 0 ; i < n ; i++)