JNIEXPORT void JNICALL Java_org_simgrid_msg_RngStream_setAntithetic(JNIEnv *env, jobject jrngstream, jboolean ja) {
RngStream rngstream = jrngstream_to_native(env, jrngstream);
if (!rngstream)
return;
if (ja == JNI_TRUE) {
RngStream_SetAntithetic(rngstream,-1);
}
else {
RngStream_SetAntithetic(rngstream,0);
}
}
SEXP R_RngStreams_SetAntithetic (SEXP R_stream, SEXP R_anti)
/*----------------------------------------------------------------------*/
/* Set flag for antithetic random numbers in Stream object. */
/* */
/* parameters: */
/* R_stream ... (pointer) ... pointer the Stream object */
/* R_anti ... (int) ... flag (1=TRUE, 0=FALSE) */
/*----------------------------------------------------------------------*/
{
RngStream stream;
int anti = INTEGER(R_anti)[0];
/* check pointer */
CHECK_STREAM_PTR(R_stream);
/* Extract pointer to generator */
stream = R_ExternalPtrAddr(R_stream);
CHECK_NULL(stream);
/* set flag */
RngStream_SetAntithetic(stream, anti);
return R_NilValue;
} /* end of R_RngStreams_Setantithetic() */
