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)