Revision 1380c9efbf1cbe02ae0182d8237fc32fe432538d authored by Torsten Hothorn on 16 June 2003, 00:00:00 UTC, committed by Gabor Csardi on 16 June 2003, 00:00:00 UTC
1 parent a5d39cd
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(); }
Computing file changes ...