HydjetInterface/interface/HydjetWrapper.h

0001 #ifndef GeneratorInterface_HydjetInterface_HydjetWrapper
0002 #define GeneratorInterface_HydjetInterface_HydjetWrapper
0003
0004 /**
0005    \brief Wrapper for FORTRAN version of HYDJET
0006    \version 2.0
0007    \authors Camelia Mironov
0008 */
0009
0010 extern "C" {
0011 void hyinit_(double& energy, double& a, int& ifb1, double& bmin, double& bmax, double& bfix1, int& nh1);
0012 }
0013 #define HYINIT hyinit_
0014
0015 #define _MAXMULsize_ 150000
0016
0017 extern "C" {
0018 void hyevnt_(double& bfix1);
0019 }
0020 #define HYEVNT hyevnt_
0021
0022 extern "C" {
0023 void hyjver_(int&, int&, int&, int&);
0024 }
0025 #define HYJVER hyjver_
0026
0027 extern "C" {
0028 extern struct {
0029   double psi3;
0030 } hypsi3_;
0031 }
0032 #define hypsi3 hypsi3_
0033
0034 extern "C" {
0035 extern struct {
0036   double ytfl;
0037   double ylfl;
0038   double Tf;
0039   double fpart;
0040 } hyflow_;
0041 }
0042 #define hyflow hyflow_
0043
0044 extern "C" {
0045 extern struct {
0046   double bgen;
0047   double nbcol;
0048   double npart;
0049   int npyt;
0050   int nhyd;
0051 } hyfpar_;
0052 }
0053 #define hyfpar hyfpar_
0054
0055 extern "C" {
0056 extern struct {
0057   double bminh;
0058   double bmaxh;
0059   double AW;
0060   double RA;
0061   double npar0;
0062   double nbco0;
0063   double Apb;
0064   double Rpb;
0065   int np;
0066   int init;
0067   int ipr;
0068
0069 } hyipar_;
0070 }
0071 #define hyipar hyipar_
0072
0073 extern "C" {
0074 extern struct {
0075   int nhj;
0076   int nhp;
0077   int khj[5][_MAXMULsize_];
0078   double phj[5][_MAXMULsize_];
0079   double vhj[5][_MAXMULsize_];
0080 } hyjets_;
0081 }
0082 #define hyjets hyjets_
0083
0084 extern "C" {
0085 extern struct {
0086   double ptmin;
0087   double sigin;
0088   double sigjet;
0089   int nhsel;
0090   int ishad;
0091   int njet;
0092
0093 } hyjpar_;
0094 }
0095 #define hyjpar hyjpar_
0096
0097 extern "C" {
0098 extern struct {
0099   int mrlu[6];
0100   int rrlu[100];
0101 } ludatr_;
0102 }
0103 #define ludatr ludatr_
0104
0105 extern "C" {
0106 extern struct {
0107   double T0u;
0108   double tau0u;
0109   int nfu;
0110   int ienglu;
0111   int ianglu;
0112 } pyqpar_;
0113 }
0114 #define pyqpar pyqpar_
0115
0116 #endif