BOSS 7.1.0
BESIII Offline Software System
Loading...
Searching...
No Matches
PseuMarc.cxx
Go to the documentation of this file.
1//*********************************************
2//
3// Environment:
4// This software is part of models developed at BES collaboration.
5// If you use all or part of it, please give an appropriate acknowledgement.
6//
7// Copyright Information:
8//
9// Module: PseuMarc.cc
10//
11// Description: to unify the random engines of :
12// Rlu in lund_crm1_evtgen.F as EvtGen
13// Pyr in Pythia
14// by replace the random number in PseuMar_makeVec(rved,lenv)(see PseuMar.F),
15// RANMAR(RVEC,LENV) in tauola.F
16// Modification history:
17//
18// Ping R.-G. Nov., 2007 Module created
19//
20//------------------------------------------------------------------------
21
22#include "KKMC/KKMCRandom.h"
23#include <iostream>
24using namespace std;
25
26extern "C" {
27 extern void flat_(float*);
28}
29
30static int nr=0;
31
32void flat_(float *rndm)
33{
34 *rndm= (float)KKMCRandom::random();
35 nr++;
36 // cout<<nr<<": "<<"KKMCRandom= "<<*rndm<<endl;
37 return;
38}
39
40
float flat_()
Definition: Babayaga.cxx:126
static double random()
Definition: KKMCRandom.cxx:37