CascadeWrapper.h

Go to the documentation of this file.

#ifndef CASCADE_WRAPPER_H
#define CASCADE_WRAPPER_H
 
//-- the pyhepc routine used by Pythia to fill the HEPEVT common block
//-- is using double precision and 4000 entries
 
#include <cctype>
#include <cstring>
 
//-- CASCADE Common Block Declarations
 
extern "C" {
extern struct { int ke, kp, keb, kph, kgl, kpa, nflav; } caluco_;
}
 
#define caluco caluco_
 
extern "C" {
extern struct { int lst[30], ires[2]; } capar6_;
}
 
#define capar6 capar6_
 
extern "C" {
extern struct {
  double plepin, ppin;
  int nfrag, ilepto, ifps, ihf, inter, isemih, ifinal;
} cainpu_;
}
 
#define cainpu cainpu_
 
extern "C" {
extern struct { int ipst; } cashower_;
}
 
#define cashower cashower_
 
extern "C" {
extern struct {
  int ipsipol, ipsiel1, ipsiel2;
  //-- int i23s;  //-- from version 2.2.03 on
} jpsi_;
}
 
#define jpsi jpsi_
 
extern "C" {
extern struct { int iorder, itimshr, iccfm; } casshwr_;
}
 
#define casshwr casshwr_
 
extern "C" {
extern struct { int ipro, iruna, iq2, irunaem; } capar1_;
}
 
#define capar1 capar1_
 
extern "C" {
extern struct { int ihfla, kpsi, kchi; } cahflav_;
}
 
#define cahflav cahflav_
 
extern "C" {
extern struct { int icolora, irespro, irpa, irpb, irpc, irpd, irpe, irpf, irpg; } cascol_;
}
 
#define cascol cascol_
 
extern "C" {
extern struct { int iglu; } cagluon_;
}
 
#define cagluon cagluon_
 
extern "C" {
extern struct { int irspl; } casprre_;
}
 
#define casprre casprre_
 
extern "C" {
extern struct { double pt2cut[1000]; } captcut_;
}
 
#define captcut captcut_
 
extern "C" {
extern struct {
  double acc1, acc2;
  int iint, ncb;
} integr_;
}
 
#define integr integr_
 
extern "C" {
extern struct { double scalfa, scalfaf; } scalf_;
}
 
#define scalf scalf_
 
extern "C" {
extern struct { char pdfpath[512]; } caspdf_;
}
 
#define caspdf caspdf_
 
extern "C" {
extern struct {
  double avgi, sd;
  int nin, nout;
} caeffic_;
}
 
#define caeffic caeffic_
 
//-- CASCADE routines declarations
 
extern "C" {
void casini_();
void steer_();
void cascha_();
void cascade_();
void caend_(int* mode);
void event_();
// void rluxgo_(int* mode1,int* mode2,int* mode3,int* mode4);
double dcasrn_(int* idummy);
}
 
inline void call_casini() { casini_(); }
inline void call_steer() { steer_(); }
inline void call_cascha() { cascha_(); }
inline void call_cascade() { cascade_(); }
inline void call_caend(int mode) { caend_(&mode); }
inline void call_event() { event_(); }
// inline void call_rluxgo(int mode1, int mode2, int mode3, int mode4) { rluxgo_(&mode1, &mode2, &mode3, &mode4); }
// inline double call_dcasrn() { return(dcasrn_()); }
 
//-- PYTHIA Common Block Declarations
 
//-- PYTHIA routines declarations
 
extern "C" {
void pytcha_();
void pyedit_(int* mode);
}
 
inline void call_pytcha() { pytcha_(); }
inline void call_pyedit(int mode) { pyedit_(&mode); }
 
//inline void call_pyhepc(int mode) { pyhepc(&mode); }
//inline void call_pylist(int mode) { pylist(&mode); }
//inline void call_pystat(int mode) { pystat(&mode); }
//inline void call_pyevnt() { pyevnt(); }
 
#endif  // CASCADE_WRAPPER_H