BOSS 8.0.0
BESIII Offline Software System
Loading...
Searching...
No Matches
EkharaDef.h File Reference
#include "cfortran/cfortran.h"

Go to the source code of this file.

Classes

struct  CHANNELSEL_DEF
struct  SWDIAG_DEF
struct  PIONFFSW_DEF
struct  TAGGINGMODE_DEF
struct  FFPARAMSET_DEF
struct  NLOTYPE_DEF

Macros

#define CHANNELSEL   COMMON_BLOCK( CHANNELSEL_DEF, channelsel )
#define SWDIAG   COMMON_BLOCK( SWDIAG_DEF, swdiag )
#define PIONFFSW   COMMON_BLOCK( PIONFFSW_DEF, pionffsw )
#define TAGGINGMODE   COMMON_BLOCK( TAGGINGMODE_DEF, taggingmode )
#define FFPARAMSET   COMMON_BLOCK( FFPARAMSET, ffparamset )
#define NLOTYPE   COMMON_BLOCK( NLOTYPE, nlotype )
#define EKHARA(i)
#define RUN_EKHARA_WW()
#define BOSS_INIT_EKHARA(xpar)
#define DIAGNOSE()
#define GET_WEIGHT()
#define GET_TWOPI_WEIGHTS(weights)
#define GET_FOURMOMENTA_LEPTONS(p1, p2, q1, q2)
#define GET_FOURMOMENTA_TWOPI(pi1, pi2)
#define GET_FOURMOMENTA_PION(qpion)
#define GET_FOURMOMENTA_CHICJ(qcj)
#define GET_FOURMOMENTA_PHOTON(kphp)
#define GET_FINAL_MESON_INFO(i, mfp)
#define GET_FINAL_MESON_INFO(i, tnpfinpar)
#define GET_FINAL_MESON_1PH_INFO(mfp1ph)
#define GET_FINAL_TWOPI_INFO(pipifinpar)
#define GET_FINAL_CHICJ_INFO(chicjfinpar)

Functions

 COMMON_BLOCK_DEF (CHANNELSEL_DEF, CHANNELSEL)
 COMMON_BLOCK_DEF (SWDIAG_DEF, SWDIAG)
 COMMON_BLOCK_DEF (PIONFFSW_DEF, PIONFFSW)
 COMMON_BLOCK_DEF (TAGGINGMODE_DEF, TAGGINGMODE)
 COMMON_BLOCK_DEF (FFPARAMSET_DEF, FFPARAMSET)
 COMMON_BLOCK_DEF (NLOTYPE_DEF, NLOTYPE)

Macro Definition Documentation

◆ BOSS_INIT_EKHARA

#define BOSS_INIT_EKHARA ( xpar)
Value:
CCALLSFSUB1( BOSS_INIT_EKHARA, boss_init_ekhara, DOUBLEV, xpar )
BOSS_INIT_EKHARA
#define BOSS_INIT_EKHARA(xpar)
Definition EkharaDef.h:63

Definition at line 63 of file EkharaDef.h.

63#define BOSS_INIT_EKHARA( xpar ) \
64 CCALLSFSUB1( BOSS_INIT_EKHARA, boss_init_ekhara, DOUBLEV, xpar )

Referenced by Ekhara::initialize().

◆ CHANNELSEL

#define CHANNELSEL   COMMON_BLOCK( CHANNELSEL_DEF, channelsel )

Definition at line 13 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), and Ekhara::initialize().

◆ DIAGNOSE

#define DIAGNOSE ( )
Value:
CCALLSFSUB0( DIAGNOSE, diagnose )
DIAGNOSE
#define DIAGNOSE()
Definition EkharaDef.h:67

Definition at line 67 of file EkharaDef.h.

Referenced by Ekhara::initialize().

◆ EKHARA

#define EKHARA ( i)
Value:
CCALLSFSUB1( EKHARA, ekhara, INT, i )
EKHARA
#define EKHARA(i)
Definition EkharaDef.h:57
  • functions of the FORTRAN code

Definition at line 57 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), Ekhara::execute(), and Ekhara::finalize().

◆ FFPARAMSET

#define FFPARAMSET   COMMON_BLOCK( FFPARAMSET, ffparamset )

Definition at line 41 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), and Ekhara::initialize().

◆ GET_FINAL_CHICJ_INFO

#define GET_FINAL_CHICJ_INFO ( chicjfinpar)
Value:
CCALLSFSUB1( GET_FINAL_CHICJ_INFO, get_final_chicj_info, DOUBLEV, chicjfinpar )
GET_FINAL_CHICJ_INFO
#define GET_FINAL_CHICJ_INFO(chicjfinpar)

Referenced by Ekhara::finalize().

◆ GET_FINAL_MESON_1PH_INFO

#define GET_FINAL_MESON_1PH_INFO ( mfp1ph)
Value:
CCALLSFSUB1( GET_FINAL_MESON_1PH_INFO, get_final_meson_1ph_info, DOUBLEV, mfp1ph )
GET_FINAL_MESON_1PH_INFO
#define GET_FINAL_MESON_1PH_INFO(mfp1ph)

◆ GET_FINAL_MESON_INFO [1/2]

#define GET_FINAL_MESON_INFO ( i,
mfp )
Value:
CCALLSFSUB2( GET_FINAL_MESON_INFO, get_final_meson_info, INT, DOUBLEV, i, mfp )
GET_FINAL_MESON_INFO
#define GET_FINAL_MESON_INFO(i, mfp)

Referenced by Ekhara::finalize().

◆ GET_FINAL_MESON_INFO [2/2]

#define GET_FINAL_MESON_INFO ( i,
tnpfinpar )
Value:
CCALLSFSUB2( GET_FINAL_MESON_INFO, get_final_meson_info, INT, DOUBLEV, i, tnpfinpar )

◆ GET_FINAL_TWOPI_INFO

#define GET_FINAL_TWOPI_INFO ( pipifinpar)
Value:
CCALLSFSUB1( GET_FINAL_TWOPI_INFO, get_final_twopi_info, DOUBLEV, pipifinpar )
GET_FINAL_TWOPI_INFO
#define GET_FINAL_TWOPI_INFO(pipifinpar)

Referenced by Ekhara::finalize().

◆ GET_FOURMOMENTA_CHICJ

#define GET_FOURMOMENTA_CHICJ ( qcj)
Value:
CCALLSFSUB1( GET_FOURMOMENTA_CHICJ, get_fourmomenta_chicj, DOUBLEV, qcj )
GET_FOURMOMENTA_CHICJ
#define GET_FOURMOMENTA_CHICJ(qcj)

Referenced by Ekhara::execute().

◆ GET_FOURMOMENTA_LEPTONS

#define GET_FOURMOMENTA_LEPTONS ( p1,
p2,
q1,
q2 )
Value:
CCALLSFSUB4( GET_FOURMOMENTA_LEPTONS, get_fourmomenta_leptons, DOUBLEV, DOUBLEV, DOUBLEV, \
DOUBLEV, p1, p2, q1, q2 )
p2
double p2[4]
Definition BabayagaNLO.cxx:41
p1
double p1[4]
Definition BabayagaNLO.cxx:41
GET_FOURMOMENTA_LEPTONS
#define GET_FOURMOMENTA_LEPTONS(p1, p2, q1, q2)

Referenced by Ekhara::execute().

◆ GET_FOURMOMENTA_PHOTON

#define GET_FOURMOMENTA_PHOTON ( kphp)
Value:
CCALLSFSUB1( GET_FOURMOMENTA_PHOTON, get_fourmomenta_photon, DOUBLEV, kphp )
GET_FOURMOMENTA_PHOTON
#define GET_FOURMOMENTA_PHOTON(kphp)

Referenced by Ekhara::execute().

◆ GET_FOURMOMENTA_PION

#define GET_FOURMOMENTA_PION ( qpion)
Value:
CCALLSFSUB1( GET_FOURMOMENTA_PION, get_fourmomenta_pion, DOUBLEV, qpion )
GET_FOURMOMENTA_PION
#define GET_FOURMOMENTA_PION(qpion)

Referenced by Ekhara::execute().

◆ GET_FOURMOMENTA_TWOPI

#define GET_FOURMOMENTA_TWOPI ( pi1,
pi2 )
Value:
CCALLSFSUB2( GET_FOURMOMENTA_TWOPI, get_fourmomenta_twopi, DOUBLEV, DOUBLEV, pi1, pi2 )
GET_FOURMOMENTA_TWOPI
#define GET_FOURMOMENTA_TWOPI(pi1, pi2)
pi2
character *LEPTONflag integer iresonances real pi2
Definition Ekhara/src/ekhara/common.h:3

Referenced by Ekhara::execute().

◆ GET_TWOPI_WEIGHTS

#define GET_TWOPI_WEIGHTS ( weights)
Value:
CCALLSFSUB1( GET_TWOPI_WEIGHTS, get_twopi_weights, DOUBLEV, weights )
GET_TWOPI_WEIGHTS
#define GET_TWOPI_WEIGHTS(weights)
Definition EkharaDef.h:73

Definition at line 73 of file EkharaDef.h.

73#define GET_TWOPI_WEIGHTS( weights ) \
74 CCALLSFSUB1( GET_TWOPI_WEIGHTS, get_twopi_weights, DOUBLEV, weights )

Referenced by Ekhara::execute().

◆ GET_WEIGHT

#define GET_WEIGHT ( )
Value:
CCALLSFFUN0( GET_WEIGHT, get_weight )
GET_WEIGHT
#define GET_WEIGHT()
Definition EkharaDef.h:70

Definition at line 70 of file EkharaDef.h.

Referenced by Ekhara::execute().

◆ NLOTYPE

#define NLOTYPE   COMMON_BLOCK( NLOTYPE, nlotype )

Definition at line 48 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), Ekhara::execute(), and Ekhara::initialize().

◆ PIONFFSW

#define PIONFFSW   COMMON_BLOCK( PIONFFSW_DEF, pionffsw )

Definition at line 27 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), and Ekhara::initialize().

◆ RUN_EKHARA_WW

#define RUN_EKHARA_WW ( )
Value:
CCALLSFSUB0( RUN_EKHARA_WW, run_ekhara_ww )
RUN_EKHARA_WW
#define RUN_EKHARA_WW()
Definition EkharaDef.h:60

Definition at line 60 of file EkharaDef.h.

◆ SWDIAG

#define SWDIAG   COMMON_BLOCK( SWDIAG_DEF, swdiag )

Definition at line 20 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), and Ekhara::initialize().

◆ TAGGINGMODE

#define TAGGINGMODE   COMMON_BLOCK( TAGGINGMODE_DEF, taggingmode )

Definition at line 34 of file EkharaDef.h.

Referenced by COMMON_BLOCK_DEF(), and Ekhara::initialize().

Function Documentation

◆ COMMON_BLOCK_DEF() [1/6]

COMMON_BLOCK_DEF ( CHANNELSEL_DEF ,
CHANNELSEL  )

◆ COMMON_BLOCK_DEF() [2/6]

COMMON_BLOCK_DEF ( FFPARAMSET_DEF ,
FFPARAMSET  )

◆ COMMON_BLOCK_DEF() [3/6]

COMMON_BLOCK_DEF ( NLOTYPE_DEF ,
NLOTYPE  )

◆ COMMON_BLOCK_DEF() [4/6]

COMMON_BLOCK_DEF ( PIONFFSW_DEF ,
PIONFFSW  )

◆ COMMON_BLOCK_DEF() [5/6]

COMMON_BLOCK_DEF ( SWDIAG_DEF ,
SWDIAG  )

◆ COMMON_BLOCK_DEF() [6/6]

COMMON_BLOCK_DEF ( TAGGINGMODE_DEF ,
TAGGINGMODE  )