//fmR.cc
#include "R.h"
#include "FM.hh"

extern "C" {

  void rngFM(int* N, int* SEED){
    int n = *N;
    unsigned long seed = (unsigned long)(*SEED);
    FM* pFM = new FM();
    double* pu = new double[n];
    pFM->ranGen(seed, n, pu);
    Rprintf("Your random numbers are\n");
    for(int i = 0; i < n; i++)
      Rprintf("%f \n", pu[i]);
    
    delete pFM;
    delete[] pu;
  } }