00001 //********************************************* 00002 // 00003 // Environment: 00004 // This software is part of models developed at BES collaboration. 00005 // If you use all or part of it, please give an appropriate acknowledgement. 00006 // 00007 // Copyright Information: 00008 // 00009 // Module: PseuMarc.cc 00010 // 00011 // Description: to unify the random engines of : 00012 // Rlu in lund_crm1_evtgen.F as EvtGen 00013 // Pyr in Pythia 00014 // by replace the random number in PseuMar_makeVec(rved,lenv)(see PseuMar.F), 00015 // RANMAR(RVEC,LENV) in tauola.F 00016 // Modification history: 00017 // 00018 // Ping R.-G. Nov., 2007 Module created 00019 // 00020 //------------------------------------------------------------------------ 00021 00022 #include "KKMC/KKMCRandom.h" 00023 #include <iostream> 00024 using namespace std; 00025 00026 extern "C" { 00027 extern void flat_(float*); 00028 } 00029 00030 static int nr=0; 00031 00032 void flat_(float *rndm) 00033 { 00034 *rndm= (float)KKMCRandom::random(); 00035 nr++; 00036 // cout<<nr<<": "<<"KKMCRandom= "<<*rndm<<endl; 00037 return; 00038 } 00039 00040