BOSS_7.0.2: /home/bes3soft/bes3soft/Boss/7.0.2/dist/7.0.2/Generator/BesBdkRc/BesBdkRc-00-00-02/src/fortran/HepEvt.h Source File

00001 *
00002 *//                                                                          //
00003 *//                     Pseudo-CLASS  HepEvt                                 //
00004 *//                                                                          //
00005 *//  Purpose:  keep and serve event in HEPEVT format                         //
00006 *//                                                                          //
00007 *//  Output of KK2f   is encoded in double precission /hepevt/               //
00008 *//                                                                          //
00009 *
00010 
00011 * ----------------------------------------------------------------------
00012       INTEGER nmxhep         ! maximum number of particles
00013       PARAMETER (nmxhep=2000)
00014       DOUBLE PRECISION   phep, vhep
00015       INTEGER nevhep, nhep, isthep, idhep, jmohep, jdahep
00016       COMMON /hepevt/
00017      $     nevhep,           ! serial number
00018      $     nhep,             ! number of particles
00019      $     isthep(nmxhep),   ! status code
00020      $     idhep(nmxhep),    ! particle ident KF
00021      $     jmohep(2,nmxhep), ! parent particles
00022      $     jdahep(2,nmxhep), ! childreen particles
00023      $     phep(5,nmxhep),   ! four-momentum, mass [GeV]
00024      $     vhep(4,nmxhep)    ! vertex [mm]
00025       SAVE  /hepevt/
00026 * ----------------------------------------------------------------------
00027       LOGICAL qedrad
00028       COMMON /phoqed/ 
00029      $     qedrad(nmxhep)    ! Photos flag
00030       SAVE   /phoqed/
00031 * ----------------------------------------------------------------------
00032       INTEGER m_PhotStart ! start position of photons (1st phot at m_PhotStart+1)
00033       INTEGER m_PhotEnd   ! end position photons
00034       INTEGER m_PosnF     ! position of final state fermion
00035       INTEGER m_PosnFbar  ! position of final state anti-fermion
00036 
00037       COMMON/HepEvt_posn/m_PhotStart,m_PhotEnd,m_PosnF,m_PosnFbar
00038 
00039       SAVE/HepEvt_posn/
00040 
00041 *
00042 *//                                                                          //
00043 *//                      End of CLASS  HepEvt                                //
00044 *