CMS 3D CMS Logo

/data/refman/pasoursint/CMSSW_5_3_3/src/GeneratorInterface/HydjetInterface/interface/HydjetWrapper.h

Go to the documentation of this file.
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