00001 #ifndef GeneratorInterface_HydjetInterface_HydjetWrapper 00002 #define GeneratorInterface_HydjetInterface_HydjetWrapper 00003 00004 // 00005 // $Id: HydjetWrapper.h,v 1.6 2007/12/04 03:50:39 mironov Exp $ 00006 // 00007 00008 /* 00009 * 00010 * Wrapper for FORTRAN version of HYDJET 00011 * 00012 * Camelia Mironov 00013 * 00014 */ 00015 00016 extern "C" { 00017 void hyinit_(double& energy,double& a,int& ifb1,double& bmin,double& bmax,double& bfix1,int& nh1); 00018 } 00019 #define HYINIT hyinit_ 00020 00021 #define _MAXMULsize_ 150000 00022 00023 00024 extern "C" { 00025 void hyevnt_(); 00026 } 00027 #define HYEVNT hyevnt_ 00028 00029 00030 extern "C" { 00031 extern struct { 00032 double ytfl; 00033 double ylfl; 00034 double Tf; 00035 double fpart; 00036 } hyflow_; 00037 } 00038 #define hyflow hyflow_ 00039 00040 00041 extern "C" { 00042 extern struct{ 00043 double bgen; 00044 double nbcol; 00045 double npart; 00046 int npyt; 00047 int nhyd; 00048 }hyfpar_; 00049 } 00050 #define hyfpar hyfpar_ 00051 00052 extern "C" { 00053 extern struct { 00054 double bminh; 00055 double bmaxh; 00056 double AW; 00057 double RA; 00058 double npar0; 00059 double nbco0; 00060 double Apb; 00061 double Rpb; 00062 int np; 00063 int init; 00064 int ipr; 00065 00066 } hyipar_; 00067 } 00068 #define hyipar hyipar_ 00069 00070 00071 extern "C" { 00072 extern struct{ 00073 int nhj; 00074 int nhp; 00075 int khj[5][_MAXMULsize_]; 00076 double phj[5][_MAXMULsize_]; 00077 double vhj[5][_MAXMULsize_]; 00078 }hyjets_; 00079 } 00080 #define hyjets hyjets_ 00081 00082 00083 extern "C" { 00084 extern struct{ 00085 00086 double ptmin; 00087 double sigin; 00088 double sigjet; 00089 int nhsel; 00090 int ishad; 00091 int njet; 00092 00093 }hyjpar_; 00094 } 00095 #define hyjpar hyjpar_ 00096 00097 00098 extern "C" { 00099 extern struct { 00100 int mrlu[6]; 00101 int rrlu[100]; 00102 } ludatr_; 00103 } 00104 #define ludatr ludatr_ 00105 00106 00107 extern "C" { 00108 extern struct{ 00109 double T0u; 00110 double tau0u; 00111 int nfu; 00112 int ienglu; 00113 int ianglu; 00114 }pyqpar_; 00115 } 00116 #define pyqpar pyqpar_ 00117 00118 #endif