C*********************************************************
C* 
C*     M C H I T S . C D E
C*
C*********************************************************
C---  Arrays Storing MC Hits in each detector
C--- 
C---  SMMXHIT = Max number of hits in a "small" array
C---  BGMXHIT = Max number of hits in a "large" array
C
C--------------------------------------- HOD1, HODP, HOD2   
C     MCNHHODx       # of hits in HODx
C
C     MCHTHODx(1,i)  element #
C              2,i)  dE/dx
C              3,i)  theta ( used for correction )
C
C--------------------------------------- VETO
C     MCNHVETO       # of hits in VETO
C
C     MCHTVETO(1,i)  element #
C              2,i)  dE/dx
C
C--------------------------------------- CRNB, CRNF
C     MCNHCRNx       # of hits in CRNx
C
C     MCHTCRNx(1,i)  element #
C              2,i)  # of phe
C              3,i)   theta ( used for correction )  <<<<<= This must yet
C                                                         
C--------------------------------------- ST1I,ST1O,ST2I,ST2O
C     MCNHSTxx       # of hits in STx
C
C     MCHTSRxx(1,i)  element #
C              2,i)  Drift Time
C--------------------------------------- FIBI,FIBO
C     MCNHFIBx       # of hits in FIBx
C
C     MCHTFIBx(1,i)  element #
C              2,i)  dE/dx
C                                                         
C
C--------------------------------------- CCAL
C     MCNHCCAL       # of hits in CCAL
C
C     MCHTCCAL(1,i)  ring #
C              2,i)  wedge
C              3,i)  Energy deposit
C--------------------------------------- FCA1
C     MCNHFCA1       # of hits in FCAL (old)
C
C     MCHTFCA1(1,i)  X block #
C              2,i)  Y block #
C              3,i)  Energy deposit
C--------------------------------------- FCA2
C     MCNHFCA2       # of hits in FCAL (new)
C
C     MCHTFCA2(1,i)  block #
C              2,i)  Energy deposit
C
C==============================================================================

      PARAMETER     SMMXHIT = 100 , BGMXHIT = 1000

      INTEGER       MCNHHOD1,MCNHHODP,MCNHHOD2,MCNHVETO,MCNHCCAL,
     +              MCNHFCA1,MCNHFCA2,MCNHFIBI,MCNHFIBO,MCNHST1I,
     +              MCNHST1O,MCNHST2I,MCNHST2O,MCNHCRNB,MCNHCRNF

      REAL          MCHTHOD1(4,SMMXHIT),MCHTHODP(4,SMMXHIT),
     +              MCHTHOD2(4,SMMXHIT),MCHTVETO(4,SMMXHIT),
     +              MCHTCCAL(4,BGMXHIT),MCHTFCA1(4,BGMXHIT),
     +              MCHTFCA2(4,BGMXHIT),MCHTFIBI(4,BGMXHIT),
     +              MCHTFIBO(4,BGMXHIT),MCHTST1I(4,SMMXHIT),
     +              MCHTST1O(4,SMMXHIT),MCHTST2I(4,SMMXHIT),
     +              MCHTST2O(4,SMMXHIT),MCHTCRNB(4,BGMXHIT),
     +              MCHTCRNF(4,BGMXHIT)

      COMMON /MCHITS/MCNHHOD1,MCNHHODP,MCNHHOD2,MCNHVETO,MCNHCCAL,
     +               MCNHFCA1,MCNHFCA2,MCNHFIBI,MCNHFIBO,MCNHST1I,
     +               MCNHST1O,MCNHST2I,MCNHST2O,MCNHCRNB,MCNHCRNF,
     +               MCHTHOD1,MCHTHODP,MCHTHOD2,MCHTVETO,MCHTCCAL,
     +               MCHTFCA1,MCHTFCA2,MCHTFIBI,MCHTFIBO,MCHTST1I,
     +               MCHTST1O,MCHTST2I,MCHTST2O,MCHTCRNB,MCHTCRNF