00001 00002 /* $Id: randomF77.c 2372 2005-06-14 09:21:32Z hothorn $ 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(); }