00001 00002 /* $Id: randomF77.c,v 1.3 2005/06/14 09:21:32 hothorn Exp $ 00003 * 00004 * wrapper for calling R's random number generator from 00005 * the original FORTRAN code 00006 * 00007 */ 00008 00009 #include "party.h" 00010 00011 void F77_SUB(rndstart)(void) { GetRNGstate(); } 00012 void F77_SUB(rndend)(void) { PutRNGstate(); } 00013 double F77_SUB(unifrnd)(void) { return unif_rand(); }