Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-01-18 10:11:15

0001 /* @(#)root/eg:$Id$ */
0002 
0003 /*************************************************************************
0004  * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
0005  * All rights reserved.                                                  *
0006  *                                                                       *
0007  * For the licensing terms see $ROOTSYS/LICENSE.                         *
0008  * For the list of contributors see $ROOTSYS/README/CREDITS.             *
0009  *************************************************************************/
0010 
0011 #ifndef ROOT_Hepevt
0012 #define ROOT_Hepevt
0013 
0014 #include "Rtypes.h"
0015 
0016 #include "cfortran.h"
0017 
0018 extern "C" {
0019 
0020 /// HEPEVT common block
0021 typedef struct {
0022    Int_t    nevhep;
0023    Int_t    nhep;
0024    Int_t    isthep[4000];
0025    Int_t    idhep[4000];
0026    Int_t    jmohep[4000][2];
0027    Int_t    jdahep[4000][2];
0028    Double_t phep[4000][5];
0029    Double_t vhep[4000][4];
0030 } HEPEVT_DEF;
0031 
0032 #define HEPEVT COMMON_BLOCK(HEPEVT,hepevt)
0033 
0034 COMMON_BLOCK_DEF(HEPEVT_DEF,HEPEVT);
0035 
0036 HEPEVT_DEF HEPEVT;
0037 
0038 }
0039 
0040 #endif