BOSS 7.1.2
BESIII Offline Software System
Loading...
Searching...
No Matches
BesBdkRc.cxx File Reference
#include "BesBdkRc/BesBdkRc.h"
#include "BesBdkRc/BesBdkRcRandom.h"
#include "HepMC/GenEvent.h"
#include "HepMC/HEPEVT_Wrapper.h"
#include "HepMC/IO_HEPEVT.h"
#include "GaudiKernel/MsgStream.h"
#include "GaudiKernel/ISvcLocator.h"
#include "GaudiKernel/AlgFactory.h"
#include "GaudiKernel/DataSvc.h"
#include "GaudiKernel/SmartDataPtr.h"
#include "BesKernel/IBesRndmGenSvc.h"
#include "GeneratorObject/McGenEvent.h"
#include "cfortran/cfortran.h"
#include <cstdlib>
#include <cassert>

Go to the source code of this file.

Classes

struct  INPUT_DEF
 
struct  PCONST_DEF
 
struct  FINCUT_DEF
 
struct  LOCALC_DEF
 
struct  COLCHC_DEF
 
struct  DELPHC_DEF
 
struct  XSECTC_DEF
 
struct  FLAGS_DEF
 
struct  LUJETS_DEF
 

Macros

#define INPUT   COMMON_BLOCK(INPUT_DEF,input)
 
#define PCONST   COMMON_BLOCK(PCONST_DEF, pconst)
 
#define FINCUT   COMMON_BLOCK(FINCUT_DEF, fincut)
 
#define LOCALC   COMMON_BLOCK(LOCALC_DEF, localc)
 
#define COLCHC   COMMON_BLOCK(COLCHC_DEF, colchc)
 
#define DELPHC   COMMON_BLOCK(DELPHC_DEF, delphc)
 
#define XSECTC   COMMON_BLOCK(XSECTC_DEF, xsectc)
 
#define FLAGS   COMMON_BLOCK(FLAGS_DEF, flags)
 
#define LUJETS   COMMON_BLOCK(LUJETS_DEF,lujets)
 
#define LUHEPC(ICONV)
 
#define LULIST(ICONV)
 
#define HEPEVT_CLEAN()
 
#define HEPEVT_PRINT()
 
#define BDKRC(IDUMP)
 
#define FINISH(IN, SIGT, ER)
 
#define RLUXGO(lux, ISEED, K1, K2)
 
#define GEN_INIT()
 
#define GEN1EVT()
 

Functions

 COMMON_BLOCK_DEF (INPUT_DEF, INPUT)
 
 COMMON_BLOCK_DEF (PCONST_DEF, PCONST)
 
 COMMON_BLOCK_DEF (FINCUT_DEF, FINCUT)
 
 COMMON_BLOCK_DEF (LOCALC_DEF, LOCALC)
 
 COMMON_BLOCK_DEF (COLCHC_DEF, COLCHC)
 
 COMMON_BLOCK_DEF (DELPHC_DEF, DELPHC)
 
 COMMON_BLOCK_DEF (XSECTC_DEF, XSECTC)
 
 COMMON_BLOCK_DEF (FLAGS_DEF, FLAGS)
 
 COMMON_BLOCK_DEF (LUJETS_DEF, LUJETS)
 
float flat_ ()
 

Macro Definition Documentation

◆ BDKRC

#define BDKRC ( IDUMP)
Value:
CCALLSFSUB1(BDKRC, bdkrc, INT, IDUMP)
#define BDKRC(IDUMP)
Definition BesBdkRc.cxx:106
#define CCALLSFSUB1(UN, LN, T1, A1)
Definition cfortran.h:1106

Definition at line 106 of file BesBdkRc.cxx.

◆ COLCHC

#define COLCHC   COMMON_BLOCK(COLCHC_DEF, colchc)

Definition at line 62 of file BesBdkRc.cxx.

Referenced by BesBdkRc::initialize().

◆ DELPHC

#define DELPHC   COMMON_BLOCK(DELPHC_DEF, delphc)

Definition at line 68 of file BesBdkRc.cxx.

Referenced by BesBdkRc::finalize(), and BesBdkRc::initialize().

◆ FINCUT

#define FINCUT   COMMON_BLOCK(FINCUT_DEF, fincut)

Definition at line 47 of file BesBdkRc.cxx.

Referenced by BesBdkRc::initialize().

◆ FINISH

#define FINISH ( IN,
SIGT,
ER )
Value:
CCALLSFSUB3(FINISH,finish,PINT,PDOUBLE,PDOUBLE,IN,SIGT,ER)
#define FINISH(IN, SIGT, ER)
Definition BesBdkRc.cxx:109
#define CCALLSFSUB3(UN, LN, T1, T2, T3, A1, A2, A3)
Definition cfortran.h:1110

Definition at line 109 of file BesBdkRc.cxx.

Referenced by BesBdkRc::finalize(), and BesTwogam::finalize().

◆ FLAGS

#define FLAGS   COMMON_BLOCK(FLAGS_DEF, flags)

◆ GEN1EVT

#define GEN1EVT ( )
Value:
#define GEN1EVT()
Definition BesBdkRc.cxx:118
#define CCALLSFSUB0(UN, LN)
Definition cfortran.h:1155

Definition at line 118 of file BesBdkRc.cxx.

Referenced by BesBdkRc::execute(), and BesTwogam::execute().

◆ GEN_INIT

#define GEN_INIT ( )
Value:
#define GEN_INIT()
Definition BesBdkRc.cxx:115

Definition at line 115 of file BesBdkRc.cxx.

Referenced by BesBdkRc::initialize().

◆ HEPEVT_CLEAN

#define HEPEVT_CLEAN ( )
Value:
CCALLSFSUB0(HEPEVT_CLEAN, hepevt_clean)
#define HEPEVT_CLEAN()
Definition BesBdkRc.cxx:100

Definition at line 100 of file BesBdkRc.cxx.

Referenced by BesBdkRc::execute(), BesTwogam::execute(), and KKMC::execute().

◆ HEPEVT_PRINT

#define HEPEVT_PRINT ( )
Value:
CCALLSFSUB0(HEPEVT_PRINT, hepevt_print)
#define HEPEVT_PRINT()
Definition BesBdkRc.cxx:103

Definition at line 103 of file BesBdkRc.cxx.

◆ INPUT

#define INPUT   COMMON_BLOCK(INPUT_DEF,input)

◆ LOCALC

#define LOCALC   COMMON_BLOCK(LOCALC_DEF, localc)

Definition at line 55 of file BesBdkRc.cxx.

Referenced by BesBdkRc::initialize().

◆ LUHEPC

#define LUHEPC ( ICONV)
Value:
CCALLSFSUB1(LUHEPC, luhepc, INT, ICONV)
#define LUHEPC(ICONV)
Definition BesBdkRc.cxx:94

Definition at line 94 of file BesBdkRc.cxx.

Referenced by BesBdkRc::execute(), and BesTwogam::execute().

◆ LUJETS

#define LUJETS   COMMON_BLOCK(LUJETS_DEF,lujets)

Definition at line 90 of file BesBdkRc.cxx.

◆ LULIST

#define LULIST ( ICONV)
Value:
CCALLSFSUB1(LULIST, lulist, INT, ICONV)
#define LULIST(ICONV)
Definition BesBdkRc.cxx:97

Definition at line 97 of file BesBdkRc.cxx.

Referenced by BesBdkRc::execute(), and BesTwogam::execute().

◆ PCONST

#define PCONST   COMMON_BLOCK(PCONST_DEF, pconst)

Definition at line 41 of file BesBdkRc.cxx.

◆ RLUXGO

#define RLUXGO ( lux,
ISEED,
K1,
K2 )
Value:
CCALLSFSUB4(RLUXGO,rluxgo,INT,INT,INT,INT,lux,ISEED,K1,K2)
#define RLUXGO(lux, ISEED, K1, K2)
Definition BesBdkRc.cxx:112
#define CCALLSFSUB4(UN, LN, T1, T2, T3, T4, A1, A2, A3, A4)
Definition cfortran.h:1112

Definition at line 112 of file BesBdkRc.cxx.

◆ XSECTC

#define XSECTC   COMMON_BLOCK(XSECTC_DEF, xsectc)

Definition at line 76 of file BesBdkRc.cxx.

Referenced by BesBdkRc::finalize(), and BesBdkRc::initialize().

Function Documentation

◆ COMMON_BLOCK_DEF() [1/9]

COMMON_BLOCK_DEF ( COLCHC_DEF ,
COLCHC  )

◆ COMMON_BLOCK_DEF() [2/9]

COMMON_BLOCK_DEF ( DELPHC_DEF ,
DELPHC  )

◆ COMMON_BLOCK_DEF() [3/9]

COMMON_BLOCK_DEF ( FINCUT_DEF ,
FINCUT  )

◆ COMMON_BLOCK_DEF() [4/9]

COMMON_BLOCK_DEF ( FLAGS_DEF ,
FLAGS  )

◆ COMMON_BLOCK_DEF() [5/9]

COMMON_BLOCK_DEF ( INPUT_DEF ,
INPUT  )

◆ COMMON_BLOCK_DEF() [6/9]

COMMON_BLOCK_DEF ( LOCALC_DEF ,
LOCALC  )

◆ COMMON_BLOCK_DEF() [7/9]

COMMON_BLOCK_DEF ( LUJETS_DEF ,
LUJETS  )

◆ COMMON_BLOCK_DEF() [8/9]

COMMON_BLOCK_DEF ( PCONST_DEF ,
PCONST  )

◆ COMMON_BLOCK_DEF() [9/9]

COMMON_BLOCK_DEF ( XSECTC_DEF ,
XSECTC  )

◆ flat_()

float flat_ ( )
extern

Definition at line 124 of file BesBdkRc.cxx.

125{
126 return (float)BesBdkRcRandom::random();
127}
static double random()