Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2021-02-14 13:07:06

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 { double psi3; } hypsi3_;
0029 }
0030 #define hypsi3 hypsi3_
0031 
0032 extern "C" {
0033 extern struct {
0034   double ytfl;
0035   double ylfl;
0036   double Tf;
0037   double fpart;
0038 } hyflow_;
0039 }
0040 #define hyflow hyflow_
0041 
0042 extern "C" {
0043 extern struct {
0044   double bgen;
0045   double nbcol;
0046   double npart;
0047   int npyt;
0048   int nhyd;
0049 } hyfpar_;
0050 }
0051 #define hyfpar hyfpar_
0052 
0053 extern "C" {
0054 extern struct {
0055   double bminh;
0056   double bmaxh;
0057   double AW;
0058   double RA;
0059   double npar0;
0060   double nbco0;
0061   double Apb;
0062   double Rpb;
0063   int np;
0064   int init;
0065   int ipr;
0066 
0067 } hyipar_;
0068 }
0069 #define hyipar hyipar_
0070 
0071 extern "C" {
0072 extern struct {
0073   int nhj;
0074   int nhp;
0075   int khj[5][_MAXMULsize_];
0076   double phj[5][_MAXMULsize_];
0077   double vhj[5][_MAXMULsize_];
0078 } hyjets_;
0079 }
0080 #define hyjets hyjets_
0081 
0082 extern "C" {
0083 extern struct {
0084   double ptmin;
0085   double sigin;
0086   double sigjet;
0087   int nhsel;
0088   int ishad;
0089   int njet;
0090 
0091 } hyjpar_;
0092 }
0093 #define hyjpar hyjpar_
0094 
0095 extern "C" {
0096 extern struct {
0097   int mrlu[6];
0098   int rrlu[100];
0099 } ludatr_;
0100 }
0101 #define ludatr ludatr_
0102 
0103 extern "C" {
0104 extern struct {
0105   double T0u;
0106   double tau0u;
0107   int nfu;
0108   int ienglu;
0109   int ianglu;
0110 } pyqpar_;
0111 }
0112 #define pyqpar pyqpar_
0113 
0114 #endif