Logo Search packages:      
Sourcecode: fmultivar version File versions  Download package

randomF77.c

/* $Id: randomF77.c,v 1.1 2002/11/22 13:24:41 hothorn Exp $
*
*  wrapper for calling R's random number generator from
*  the original FORTRAN code
*
*/

#include <R.h>

void F77_SUB(rndstart)(void) { GetRNGstate(); }
void F77_SUB(rndend)(void) { PutRNGstate(); }
double F77_SUB(unifrnd)(void) { return unif_rand(); }

Generated by  Doxygen 1.6.0   Back to index