C     Include file for the common blocks used to fill the MC true information 
C     in fillnt. The MCVECT common is read and some of it is is copied into 
C     SKVECT.  This information is manipulated and put into apmcnt 
C     for the ntuple.
C
C     This version is for the the filnt code. Note the names like POSA and IPA.
C     These variable names were used in the past not to conflict with the 
C     "official" names like pos and ip which are used in the ntuple commons
C     in the same name space.  It would be better to rename all of those
C     and then use the standard headers here.
C
C     This file is used by fillnt.F, skgetv.F and fillnt_util.F
C
C     Unified from mutiple files CWW March 2008
C

C     For primary vertex

      INTEGER   MAXVECT
      PARAMETER (MAXVECT=50)

      INTEGER   IPA(MAXVECT), NVECT
      REAL      POSA(3), PIN(3,MAXVECT), PABS(MAXVECT)
      INTEGER   CHERENKOV(MAXVECT)

      COMMON/SKVECT/POSA,IPA,PIN,PABS,NVECT,CHERENKOV

C     For secondary vertex

      INTEGER   MAXVECT2
      PARAMETER (MAXVECT2=50)

      INTEGER   IPA2(MAXVECT2), NVECT2, IORGA(MAXVECT2)
      REAL      POSA2(3,MAXVECT2), PIN2(3,MAXVECT2), PABS2(MAXVECT2)

      COMMON/VECT2/POSA2,IPA2,IORGA,PIN2,PABS2,NVECT2