EkharaDef.h

Go to the documentation of this file.

#include "cfortran/cfortran.h"
 
/*************************************/
//!- COMMON blocks of the FORTRAN code
/*************************************/
 
typedef struct {
  int channel_id;
  int NLO1P;
  int VPSW;
  int phsp_2pi;
} CHANNELSEL_DEF;
#define CHANNELSEL COMMON_BLOCK( CHANNELSEL_DEF, channelsel )
 
COMMON_BLOCK_DEF( CHANNELSEL_DEF, CHANNELSEL );
 
typedef struct {
  int sw_2pi, sw_1pi;
} SWDIAG_DEF;
#define SWDIAG COMMON_BLOCK( SWDIAG_DEF, swdiag )
 
COMMON_BLOCK_DEF( SWDIAG_DEF, SWDIAG );
 
typedef struct {
  int piggFFsw;
} PIONFFSW_DEF;
#define PIONFFSW COMMON_BLOCK( PIONFFSW_DEF, pionffsw )
 
COMMON_BLOCK_DEF( PIONFFSW_DEF, PIONFFSW );
 
typedef struct {
  int tagmode;
} TAGGINGMODE_DEF;
#define TAGGINGMODE COMMON_BLOCK( TAGGINGMODE_DEF, taggingmode )
 
COMMON_BLOCK_DEF( TAGGINGMODE_DEF, TAGGINGMODE );
 
typedef struct {
  int FF_pion;
} FFPARAMSET_DEF;
#define FFPARAMSET COMMON_BLOCK( FFPARAMSET, ffparamset )
 
COMMON_BLOCK_DEF( FFPARAMSET_DEF, FFPARAMSET );
 
typedef struct {
  int EvtPhTyp, writable, weighted;
} NLOTYPE_DEF;
#define NLOTYPE COMMON_BLOCK( NLOTYPE, nlotype )
 
COMMON_BLOCK_DEF( NLOTYPE_DEF, NLOTYPE );
 
/************************************/
//!- functions of the FORTRAN code
/************************************/
 
PROTOCCALLSFSUB1( EKHARA, ekhara, INT )
#define EKHARA( i ) CCALLSFSUB1( EKHARA, ekhara, INT, i )
 
PROTOCCALLSFSUB0( RUN_EKHARA_WW, run_ekhara_ww )
#define RUN_EKHARA_WW() CCALLSFSUB0( RUN_EKHARA_WW, run_ekhara_ww )
 
PROTOCCALLSFSUB1( BOSS_INIT_EKHARA, boss_init_ekhara, DOUBLEV )
#define BOSS_INIT_EKHARA( xpar )                                                              \
  CCALLSFSUB1( BOSS_INIT_EKHARA, boss_init_ekhara, DOUBLEV, xpar )
 
PROTOCCALLSFSUB0( DIAGNOSE, diagnose )
#define DIAGNOSE() CCALLSFSUB0( DIAGNOSE, diagnose )
 
PROTOCCALLSFFUN0( DOUBLE, GET_WEIGHT, get_weight )
#define GET_WEIGHT() CCALLSFFUN0( GET_WEIGHT, get_weight )
 
PROTOCCALLSFSUB1( GET_TWOPI_WEIGHTS, get_twopi_weights, DOUBLEV )
#define GET_TWOPI_WEIGHTS( weights )                                                          \
  CCALLSFSUB1( GET_TWOPI_WEIGHTS, get_twopi_weights, DOUBLEV, weights )
 
PROTOCCALLSFSUB4( GET_FOURMOMENTA_LEPTONS, get_fourmomenta_leptons, DOUBLEV, DOUBLEV, DOUBLEV,
                  DOUBLEV )
#define GET_FOURMOMENTA_LEPTONS( p1, p2, q1, q2 )                                             \
  CCALLSFSUB4( GET_FOURMOMENTA_LEPTONS, get_fourmomenta_leptons, DOUBLEV, DOUBLEV, DOUBLEV,   \
               DOUBLEV, p1, p2, q1, q2 )
 
PROTOCCALLSFSUB2( GET_FOURMOMENTA_TWOPI, get_fourmomenta_twopi, DOUBLEV, DOUBLEV )
#define GET_FOURMOMENTA_TWOPI( pi1, pi2 )                                                     \
  CCALLSFSUB2( GET_FOURMOMENTA_TWOPI, get_fourmomenta_twopi, DOUBLEV, DOUBLEV, pi1, pi2 )
 
PROTOCCALLSFSUB1( GET_FOURMOMENTA_PION, get_fourmomenta_pion, DOUBLEV )
#define GET_FOURMOMENTA_PION( qpion )                                                         \
  CCALLSFSUB1( GET_FOURMOMENTA_PION, get_fourmomenta_pion, DOUBLEV, qpion )
 
PROTOCCALLSFSUB1( GET_FOURMOMENTA_CHICJ, get_fourmomenta_chicj, DOUBLEV )
#define GET_FOURMOMENTA_CHICJ( qcj )                                                          \
  CCALLSFSUB1( GET_FOURMOMENTA_CHICJ, get_fourmomenta_chicj, DOUBLEV, qcj )
 
PROTOCCALLSFSUB1( GET_FOURMOMENTA_PHOTON, get_fourmomenta_photon, DOUBLEV )
#define GET_FOURMOMENTA_PHOTON( kphp )                                                        \
  CCALLSFSUB1( GET_FOURMOMENTA_PHOTON, get_fourmomenta_photon, DOUBLEV, kphp )
 
PROTOCCALLSFSUB2( GET_FINAL_MESON_INFO, get_final_meson_info, INT, DOUBLEV )
#define GET_FINAL_MESON_INFO( i, mfp )                                                        \
  CCALLSFSUB2( GET_FINAL_MESON_INFO, get_final_meson_info, INT, DOUBLEV, i, mfp )
#define GET_FINAL_MESON_INFO( i, tnpfinpar )                                                  \
  CCALLSFSUB2( GET_FINAL_MESON_INFO, get_final_meson_info, INT, DOUBLEV, i, tnpfinpar )
 
PROTOCCALLSFSUB1( GET_FINAL_MESON_1PH_INFO, get_final_meson_1ph_info, DOUBLEV )
#define GET_FINAL_MESON_1PH_INFO( mfp1ph )                                                    \
  CCALLSFSUB1( GET_FINAL_MESON_1PH_INFO, get_final_meson_1ph_info, DOUBLEV, mfp1ph )
 
PROTOCCALLSFSUB1( GET_FINAL_TWOPI_INFO, get_final_twopi_info, DOUBLEV )
#define GET_FINAL_TWOPI_INFO( pipifinpar )                                                    \
  CCALLSFSUB1( GET_FINAL_TWOPI_INFO, get_final_twopi_info, DOUBLEV, pipifinpar )
 
PROTOCCALLSFSUB1( GET_FINAL_CHICJ_INFO, get_final_chicj_info, DOUBLEV )
#define GET_FINAL_CHICJ_INFO( chicjfinpar )                                                   \
  CCALLSFSUB1( GET_FINAL_CHICJ_INFO, get_final_chicj_info, DOUBLEV, chicjfinpar )