EvtInclusiveGenRandom.cc

Go to the documentation of this file.

//*********************************************
//
// Environment:
//      This software is part of models developed at BES collaboration
//      based on the EvtGen framework.  If you use all or part
//      of it, please give an appropriate acknowledgement.
//
// Copyright Information: See EvtGen/BesCopyright
//      Copyright (A) 2007      Ping Rong-Gang @IHEP
//
// Module:  EvtRlu.cc
//
// Description: to unify the random engine
//     Rlu in lund_crm1_evtgen.F as EvtGen
//     pyr in pythia model
//     tauola random engine is redifined with rlu(0), see tauola2.4.F
//   If the unified engine is set by user, then the Flat is replaced with uers' engine
//   See EvtGen.cc
// Modification history:
//
//    Ping R.-G.       Nov., 2007       Module created
//
//------------------------------------------------------------------------
 
#include "../EvtGenBase/EvtRandom.hh"
#include "../EvtGenBase/EvtRandomEngine.hh"
#include <iostream>
 
extern "C" {
extern double begran_( int* );
}
 
extern "C" {
extern double phoran_( int* ); // Photos
}
 
extern "C" {
extern double pyr_( int* ); // pythia
}
extern "C" {
extern float rlu_( int* ); // jetset74
}
extern "C" {
extern void ranlxdf_( double vec[], int* lvec );
}
 
void ranlxdf_( double vec[], int* lvec ) {
  int k;
  for ( k = 0; k < *lvec; k++ ) { vec[k] = EvtRandom::Flat(); }
}
 
double begran_( int* ) { return EvtRandom::Flat(); }
 
double phoran_( int* ) { return EvtRandom::Flat(); }
 
float rlu_( int* dummy ) {
  float rdm = EvtRandom::Flat();
  // std::cout<<"rlu_ ================= "<<rdm<<std::endl;
  return rdm;
}
 
double pyr_( int* ) { return EvtRandom::Flat(); }