c
c     Event generator interface variables
c
c     Authors: S.R. Tonse and C.F. Maguire (FOPI relic)
c
c     Revision history (since 1996)
c	Hubert van Hecke  2/7/1996  Changes for 3D vertex momentum
c
c=====begin guevgen.inc=======================================================
c
c    Global variables
c 
c
c     KUIP event interface parameters
c     ===============================
      Integer         EVT_SMOOTH
      Parameter       (EVT_SMOOTH = 1)
 
      Integer         VTX_DIAMOND
      Parameter       (VTX_DIAMOND = 1)
 
c
c     KUIP event interface common
c     ===========================
      Integer         EVT_TYPE          ,     ! Type of event selected
     &                VTX_TYPE                ! Vertex method
      Real            KEVT_PAR (10)     ,     ! KUIP event parameters
     &                KVTX_PAR (3,10)         ! KUIP vertex parameters
      Logical         KUIP_EVT
 
      Common /KEVGEN/ KUIP_EVT, EVT_TYPE, VTX_TYPE, KEVT_PAR, KVTX_PAR
 
c
c     ev_gen common (buffer for event particle kinematics information)
c     =============
 
      integer    max_mxtot        ! maximum number of particles full event
      parameter (max_mxtot=20000) ! set at 20,000 for now
 
      real    pptot (4, max_mxtot), xyz (3), pmc1 (10), pmc2 (30)
      real    xyzmv (3, max_mxtot)    ! distinct vertex for each particle
      integer id_parent(max_mxtot)    ! parent id number
      integer idtot (max_mxtot)
      integer mxtot, ntot, MAXTRK, PRNTRK, NUMEVT,nrvphi_evt
      integer nrvjpsi_evt
      integer ixy_rndm, ixy_change    ! for XY randomization
      integer multi_xyz               ! 0 ===> only 1 vertex, 1 ===> multiple


 
c      COMMON /evgen/ NTOT, PPTOT, xyz, IDTOT, MXTOT, pmc1, pmc2,
c     &               MAXTRK, PRNTRK, NUMEVT,nrvphi_evt,
c     &               IXY_RNDM, IXY_CHANGE,nrvjpsi_evt,
c     &               MULTI_XYZ, XYZMV, ID_PARENT, rts, strfnct
      COMMON /evgen0/ NTOT,xyz,MXTOT,pmc1,pmc2,
     &                MAXTRK,PRNTRK,NUMEVT,nrvphi_evt
      COMMON /evgen1/ IXY_RNDM,IXY_CHANGE,nrvjpsi_evt,
     &                MULTI_XYZ,rts,strfnct
      COMMON /evgen2/ PPTOT
      COMMON /evgen3/ IDTOT
      COMMON /evgen4/ XYZMV
      COMMON /evgen5/ ID_PARENT
 
      character*40 chevt_name
      common /chevgen/ chevt_name
 
c
c     KINE and VERT user space
c         local variables moved to GUKINE
c         causes HP compiler to report errors
c     ========================
c      Integer         NUKINE, NUVERT
c      Parameter       (NUKINE = 0)
c      Parameter       (NUVERT = 0)
 
c      Real            UVERT (10), UKINE (10)
 
c=====end guevgen.inc=======================================================