00001 //********************************************* 00002 // 00003 // Environment: 00004 // This software is part of models developed at BES collaboration 00005 // based on the EvtGen framework. If you use all or part 00006 // of it, please give an appropriate acknowledgement. 00007 // 00008 // Copyright Information: See EvtGen/BesCopyright 00009 // Copyright (A) 2007 Ping Rong-Gang @IHEP 00010 // 00011 // Module: EvtRlu.cc 00012 // 00013 // Description: to unify the random engine 00014 // Rlu in lund_crm1_evtgen.F as EvtGen 00015 // pyr in pythia model 00016 // tauola random engine is redifined with rlu(0), see tauola2.4.F 00017 // If the unified engine is set by user, then the Flat is replaced with uers' engine 00018 // See EvtGen.cc 00019 // Modification history: 00020 // 00021 // Ping R.-G. Nov., 2007 Module created 00022 // 00023 //------------------------------------------------------------------------ 00024 00025 #include "EvtGenBase/EvtRandom.hh" 00026 #include "EvtGenBase/EvtRandomEngine.hh" 00027 00028 extern "C" { 00029 extern float begran_(int *); 00030 extern double phoran_(int *); //Photos 00031 extern float rlu_(int *); //jetset74 00032 extern double pyr_(int *); //pythia 00033 } 00034 00035 00036 float begran_(int *){ 00037 return EvtRandom::Flat(); 00038 } 00039 00040 double phoran_(int *){ 00041 return EvtRandom::Flat(); 00042 } 00043 00044 float rlu_(int *){ 00045 return EvtRandom::Flat(); 00046 00047 } 00048 00049 double pyr_(int *){ 00050 return EvtRandom::Flat(); 00051 }