PseuMarc.cxx

Go to the documentation of this file.

//*********************************************
//
// Environment:
//      This software is part of models developed at BES collaboration.
//      If you use all or part  of it, please give an appropriate acknowledgement.
//
// Copyright Information:
//
// Module:  PseuMarc.cc
//
// Description: to unify the random engines of :
//    Rlu in lund_crm1_evtgen.F as EvtGen
//    Pyr in Pythia
//    by replace the random number in PseuMar_makeVec(rved,lenv)(see PseuMar.F),
//    RANMAR(RVEC,LENV) in tauola.F
// Modification history:
//
//    Ping R.-G.       Nov., 2007       Module created
//
//------------------------------------------------------------------------
 
#include "../KKMCRandom.h"
#include <iostream>
using namespace std;
 
extern "C" {
extern void flat_( float* );
}
 
static int nr = 0;
 
void flat_( float* rndm ) {
  *rndm = (float)KKMCRandom::random();
  nr++;
  //  cout<<nr<<": "<<"KKMCRandom= "<<*rndm<<endl;
  return;
}