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(); }