Main Page | Directories | File List | File Members | Related Pages

randomF77.c

Go to the documentation of this file.
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(); }

Generated on Fri Aug 25 14:30:01 2006 for party by  doxygen 1.4.4