33#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32)) && !defined(__CYGWIN__) 
   34#define FC_PHODMP PHODMP 
   35#define FC_SIMPLE_TAU_HEPEVT_EVENT SIMPLE_TAU_HEPEVT_EVENT 
   37#define FC_PHODMP phodmp_ 
   38#define FC_SIMPLE_TAU_HEPEVT_EVENT simple_tau_hepevt_event_ 
   40extern "C"  void FC_SIMPLE_TAU_HEPEVT_EVENT(); 
 
   41extern "C" void FC_PHODMP();                  
 
   42extern "C" struct HEPEVT hepevt_;                   
 
   46void add_particle(
int id, 
int status, 
double px, 
double py, 
double pz, 
double e, 
double m,
 
   47                  int mother1, 
int mother2, 
int daughter1, 
int daughter2) {
 
   77void simple_tau_hepevt_event_cpp() {
 
   82    add_particle(  11, 6,  1.7763568394002505e-15, -3.5565894425761324e-15,  4.5521681043409913e+01, 4.5521681043409934e+01,
 
   83                           0.0005111e0,             0,  0,  3,  3);
 
   84    add_particle( -11, 6, -1.7763568394002505e-15,  3.5488352204797800e-15, -4.5584999071936601e+01, 4.5584999071936622e+01,
 
   85                           0.0005111e0,             0,  0,  3,  3);
 
   86    add_particle(  23, 5,  0e0,                     0e0,                    -6.3318028526687442e-02, 9.1106680115346506e+01,
 
   87                           9.1106658112716090e+01,  1,  2,  4,  5);
 
   88    add_particle(  15, 2, -2.3191595992562256e+01, -2.6310500920665142e+01, -2.9046412466624929e+01, 4.5573504956498098e+01,
 
   89                           1.7769900000002097e+00,  3,  0,  6,  7);
 
   90    add_particle( -15, 2,  2.3191595992562256e+01,  2.6310500920665142e+01,  2.8983094438098242e+01, 4.5533175158848429e+01,
 
   91                           1.7769900000000818e+00,  3,  0,  8,  9);
 
   92    add_particle(  16, 1, -1.2566536214715378e+00, -1.7970251138317268e+00, -1.3801323581022720e+00, 2.5910119010468553e+00,
 
   93                           9.9872238934040070e-03,  4,  0,  0, 0);
 
   94    add_particle(-211, 1, -2.1935073012334062e+01, -2.4513624017269400e+01, -2.7666443730700312e+01, 4.2982749776866747e+01,
 
   95                           1.3956783711910248e-01,  4,  0,  0, 0);
 
   96    add_particle( -16, 1,  8.4364531743909055e+00,  8.3202830831667836e+00,  9.6202800273055971e+00, 1.5262723881157640e+01,
 
   97                           9.9829332903027534e-03,  5,  0,  0, 0);
 
   98    add_particle( 211, 1,  1.4755273459419701e+01,  1.7990366047940022e+01,  1.9362977676297948e+01, 3.0270707771933196e+01,
 
   99                           1.3956753909587860e-01,  5,  0,  0, 0);
 
  104    std::cout << std::endl << 
"HEPEVT wrapper example - FORTRAN EVENT" << std::endl;
 
  105    std::cout <<         
"--------------------------------------" << std::endl;
 
  109    FC_SIMPLE_TAU_HEPEVT_EVENT();
 
  111    std::cout << std::endl << 
"FORTRAN PRINTOUT" << std::endl << std::endl;
 
  114    std::cout << std::endl << 
"C++ PRINTOUT"     << std::endl << std::endl;
 
  117    std::cout << std::endl << 
"HEPEVT wrapper example - C++ EVENT" << std::endl;
 
  118    std::cout <<         
"----------------------------------" << std::endl;
 
  120    simple_tau_hepevt_event_cpp();
 
  122    std::cout << std::endl << 
"FORTRAN PRINTOUT" << std::endl << std::endl;
 
  125    std::cout << std::endl << 
"C++ PRINTOUT" << std::endl << std::endl;
 
Definition of class HEPEVT_Wrapper.
static void set_mass(const int &index, double mass)
Set mass.
static void set_momentum(const int &index, const double &px, const double &py, const double &pz, const double &e)
Set 4-momentum.
static void set_number_entries(const int &noentries)
Set number of entries.
static void print_hepevt(std::ostream &ostr=std::cout)
Print information from HEPEVT common block.
static void zero_everything()
Set all entries in HEPEVT to zero.
static void set_id(const int &index, const int &id)
Set PDG particle id.
static void set_status(const int &index, const int &status)
Set status code.
static void set_hepevt_address(char *c)
Set Fortran block address.
static void set_parents(const int &index, const int &firstparent, const int &lastparent)
Set parents.
static void set_children(const int &index, const int &firstchild, const int &lastchild)
Set children.
static int number_entries()
Get number of entries.
static void set_event_number(const int &evtno)
Set event number.
Fortran common block HEPEVT.